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18 IDENTIFICATION 
20 PRODUCT CODE: AC-9402D-MC 
2e PRODUCT NAME: CZTMCDO TM11 DATA RELIAB 
2 PROGRAM DATE: MAY 1980 
26 MAINTAINER: DIAGNOSTIC GROUP 
28 
30 THE INFORMATION IN THIJS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
31 NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
32 EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES 
33 NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 
35 THE SOFTWARE »DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A 
% LICENSE AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE 
7 TERMS OF SUCH LICENSE. 
. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR 
40 THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS 
41 NOT SUPPLIED BY DIGITAL. 
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ABSTRACT 

THE TM11 DATA RELIABILITY PROGRAM COLLECTS i i 
INFORMATION PERTAINING TO THE DATA RELIABILITY OF THE TM11, TU10 
WHEN RUN FOR EXTENDED PERIODS OF TIME. IT USES A NUMBER OF 
DIFFERENT At th CONTROLLING DATA PATTERNS, PARITY, DENSITY 
RECORD LENGTHS, WRITING AND READING SEQUENCES AND STOPPING MODES 
(NONSTOP, START=STOP, RANDOM STALL DELAY). 

REQUIREMENTS 

EQUIPMENT 

PDP=11 WITH TM11 AND 1 TO 8 TU10 TAPE UNITS (7 CHANNEL ONLY) 
STORAGE 

PROGRAM STORAGE 

THE ROUTINE REQUIRES 4K OF MEMORY. 

PRELIMINARY PROGRAMS 


THE TM11 INSTRUCTION TEST AND TM11 DRIVE FUNCTION TIMER MUST RUN 
PROPERLY BEFORE ATTEMPTING TO USE THIS PROGRAM. 


LOADING PROCEDURE 

ME THOD 

PROCEDURE FOR NORMAL BINARY TAPES SHOULD BE FOLLOWED: 

1. ABSOLUTE LOADER MUST BE IN MEMORY. 

2. PLACE BINARY TAPE IN READER. 

3. LOAD ADDRESS *7500 (* ging 4 i LOCATION OF LOADER) 
4. PRESS *‘START’’ (PROGRAM WILL 

STARTING PROCEDURE 

CONTROL SWITCH SETTINGS 


FOR INITIAL OPERATION OF PROGRAM ALL SWITCHES SHOULD BE = 0 
(OR DOWN). 


STARTING ADDRESS 
200 - BASIC TEST (AUTOMATIC PARAMETER AND UNIT SELECTION) 
204 - OPERATOR CONTROLLED PARAMETER TEST(WITH 4* MEMORY AVAILABLE) 


SEQ 0002 
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100 - 210 oe fe f f f { sf 8k ef sf ) 4 
hyd 
108 
104 
105 
106 
24 4.3 PROGRAM AND/OR OPERATOR ACTION 
109 LOAD PROGRAM INTO MEMORY 
110 SET DESIRED TU10 TAPE UNITS ON-LINE 
111 LOAD STARTING ADDRESS 200 (204 OR 210 TO SELECT PARAMETERS AND UNITS) 
112 PRESS _START=PROGRAM WILL BEGIN TESTING FOR LOAD ADDRESS OF 200 OTHERWISE 
113 SELECT TAPE UNITS (REFERENCE Gog }e™? 

114 SELECT PARAMETERS tony B -2) 

NZ TYPE CARRIAGE RETURN AND PROGRAM WILL BEGIN TESTING. 

aT 4 4.3.1 TAPE UNIT SELECTION 

119 STARTING THE PROGRAM AT 200 WILL RESULT_IN AUTOMATIC SELECTION 
120 OF THE UNITS TO BE TESTED (REFERENCE 4.3.1.2) OTHERWISE STARTING 
is) AT 204 OR 210 WILL ALLOW OPERATOR TO SELECT UNITS. 

123 THE PROGRAM WILL TYPE ‘SELECT UNITS*’. ANY CONFIGURATION OF 

124 1 TO 8 UNITS MAY BE SELECTED BY TYPING a UNIT NUMBERS ON 

i? THE TELETYPE. ANY SEQUENCE OF NUMBERS MAY BE TYPED. AFTER 


EACH NUMBER IS TYPED A COMMA (,) WILL BE PRINTED. TYPING THE 

SAME UNIT NUMBER TWICE WILL CAUSE THAT UNIT NUMBER TO BE DELETED. 

TYPING ANY KEY OTHER THAN 0 THRU 7 WILL CAUSE A QUESTION MARK 

(?) TO BE PRINTED AND THAT KEY WILL BE IGNORED. 

TO TERMINATE UNIT whe TYPE A CARRIAGE RETURN. WHEN 

CARRIAGE RETURN IS TYPED THE PROGRAM WILL CONTINUE TO THE 

“PARAMETER SELECTION’’ UNLESS NO UNITS WERE SELECTED AND IN 

THAT EVENT WILL RETURN TO THE BEGINNING OF ‘SELECT UNITS"’. 
4.3.1.1 TAPE UNIT SELECTION EXAMPLES 


SELECT UNITS 3,4,5 
SELECT UNITS 5,3,4 


IN EITHER CASE, UNITS 3,4,5 ARE SELECTED. 


SELECT UNITS 
SELECT UNITS 


A CARRIAGE RETURN WAS TYPED WITH NO UNITS SELECTED. 
SELECT UNITS 1,9?,1,2 

ONLY UNIT 2 SELECTED, UNIT 1 WAS DELETED (TYPED TWICE) 

AND THE 9 WAS IGNORED 


— 4 
BAN 


— at oe ots es ss J 
SBIKAKRAYLS 
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151 ° 

152 

153 4.3.1.2 STARTING AT 200 WILL RESULT IN AUTOMATIC SELECTION OF UNITS TO 
154 BE TESTED. A UNIT WILL BE SELECTED FOR TESTING IF IT MEETS THE 
155 FOLLOWING CRITERIA: 





“cz TmcD0 T™11 DATA RELIAB 


-CZTMCD.P11 03=-JUN-80 15:26 


OD ed ed ed ed ed 
AVISSRNF 





ARANVSSEVESLF 


ee a ek a ed ed od od) 
SSELEREAVAS IIIS 


$3 


4.3.2 


4.3.2.1 





MACY11 30A(1052) 


ee 
O3-JUN-80 15:27 PAGE 4 


1. IT IS ON-LINE 
¢- IT IS SEVEN(7) TRACK 
IT IS WRITE ENABLED 
IF THE ABOVE CRITERIA IS NOT MEET BY AT LEAST gee _ 
OPERATOR SELECTION WILL BE REQUIRED (REFERENCE 4.3.1). 


PARAMETER SELECTION 


STARTING THE PROGRAM AT 200 WILL_RESULT IN AN aie onan ees 
OF TEST PARAMETERS (REFERENCE 4.3.2.10) OTHERWISE STARTING 

ADDRESS 204 OR 210 WILL ALLOW OPERATOR TO SELECT PARAMETERS. 
THERE ARE SEVEN TYPES OF PARAMETERS TO BE CONTROLLED BY THE 
OPERATOR. THEY INCLUDE: TEST NUMBER, PATTERN, PARITY, DENSITY 


RECORD LENGTH, WRITE MODE, AND READ MODE. THE PROGRAM WILL PRINT: 


“TST PAT PAR DEN RLS WMO QMO0"' 


TST=TEST NUMBER 
PAT=PATTERN 

PAR=PARITY 

DEN=DENSITY 

RLS=RECORD LENGTH SEQUENCE 
WMO=WRITE START/STOP MODE 
RMO=READ START/STOP MODE 


TEST NUMBER 

THERE ARE 6 TESTS AVAILABLE FOR SELECTION (0 THRU 5). 

TEST DESCRIPTION 

0 WRITE 1 RECORD, REPEAT ON ALL UNITS, CONTINUE TO END 
OF TAPE. 

1 WRITE 256 RECORDS, REPEAT FOR ALL UNITS, CONTINUE TO END 
OF TAPE. 

2 WRITE 256 yy REPEAT FOR ALL UNITS, BACKSPACE 256 


RECORDS, REPEAT FOR ALL UNITS, READ wise RECORDS, REPEAT 
FOR ALL UNITS , CONTINUE TO END OF TAPE. 


3 oa" 1 RECORD, REPEAT FOR ALL UNITS, BACKSPACE, REPEAT 
FOR ALL UNITS, READ 1 RECORD, REPEAT FOR ALL UNITS, 
CONTINUE TO END OF TAPE. 


4 WRITE 1 RECORD, REPEAT FOR ALL UNITS, REPEAT FOR 256 
RECORDS, BACKSPACE 256 RECORDS, REPEAT FOR ALL UNITS. 
READ 1 RECORD, REPEAT FOR ALL UNITS, REPEAT FOR 256 
RECORDS, CONTINUE TO END OF TAPE. 


5 READ 1 RECORD, REPEAT FOR ALL UNITS, CONTINUE TO END 
OF TAPE. 


SEQ 0004 
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4.3.2.2 PATTERN 
THERE ARE 8 DATA PATTERNS AVAILABLE FOR SELECTION (0 THRU 7) WITH EACH PARITY. 
PATTERN DESCRIPTION 

QO (EVEN) HIGH FREQUENCY OUTSIDE SKEW 


— 


(ODD) 


(EVEN) 


(ODD) 


(EVEN) 
TRACKS 


(ODD) 
TRACKS 


(EVEN) 


(ODD) 


HALF FREQUENCY OUTSIDE SKEW 


SLIDING *0"' 


SLIDING °"I"' 


HIGH FREQUENCY ALTERNATING 


HIGH FREQUENCY ALTERNATING 


HALF FREQUENCY OUTSIDE TRACK 
HIGH FREQUENCY INSIDE TRACKS 


HIGH FREQUENCY OUTSIDE TRACK 
HALF FREQUENCY INSIDE TRACKS 


SEQ 0005 


DATA 
01 
0 
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SEQ 0006 


$i PATTERN DESCRIPTION DATA 
274 4 (EVEN) INCREMENTING PATTERN 01 
(NO ALL 0°S) 


281 4 (ODD) INCREMENTING PATTERN 00 
(INCLUDING ALL 0°S) 01 


| 
| 
| 
I 
| 
| 


289 5 (EVEN) THREE O'S EACH TRACK EVERY 3 
290 6TH WORD 


». 305 
307 


SESESE 


5 (ODD) THREE 1°S EACH TRACK EVERY 
6TH WORD 


WWNIWWNAINNANWNWW 
—b ed ts ss ees 
WOODNAULWN—O 


8 


295 
296 
38 
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Wh 
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| 326 01 
325 o1 
326 


| 
| $2 6 (ODD,EVEN) ALL 1°S 77 
| 


337 7 (EVEN) RANDON (NO ALL 0'S) ? 
339 7 (ODD) RANDOM (INCLUDING ALL 0'S) 
341 4.3.2.3 PARITY 

343 PARITY SELECTION IS EITHER EVEN OR ODD. 


345 PAR DESCRIPTION 
346 0 EVEN PARITY. 


348 1 ODD PARITY 
324 4.3.2.4 DENSITY 
352 THERE ARE 4 TYPES OF DENSITIES FOR SELECTION (2,5,8,() 
354 DEN DESCRIPTION 
200 BITS PER INCH. 
556 BITS PER INCH. 
800 BITS PER INCH. 
800 BPI CORE DUMP. 


Ww 

Ww 

Oo 
~ @o wm MH 


4.3.2.5 RECORD LENGTH SEQUENCE 

370 THERE ARE 4 TYPES OF RECORD LENGTH SEQUENCES FOR SELECTION (0 THRU 3) 
38 RLS DESCRIPTION 

374 0 MINIMUM LENGTH RECORDS (4 BYTES) 

376 1 MAXIMUM LENGTH RECORDS (1024 BYTES) 


378 2 VARING LENGTH RECORDS, MINIMUM TO MAXIMUM (1ST RECORD= 
79 4 BYTES, EACH SUCCESSIVE RECORD IS 4 BYTES LONGER 


SRL? MRIS ak. 
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380 UNTIL 256TH RECORD=1024 BYTES) : 
32 3 VARYING LENGTH RECORDS, MAXIMUM TO MINIMUM (1ST RECORD= 
| 383 1024 BYTES, EACH SUCCESSIVE RECORD IS 4 BYTES SHORTER 
| 384 UNTIL 256TH RECORD=4 BYTES) 
386 4.3.2.6 WRITE START/STOP MODE 
| 388 THERE ARE 3 TYPES OF WRITE MODES FOR SELECTION (0 THRU 2) 
| 390 wo DESCRIPTION 
392 0 NONSTOP = NO WAITING BETWEEN WRITE OPERATIONS. NEW 
393 COMMAND IS ISSUED WHEN CU READY SETS. 
395 1 START/STOP = FULL STOP BETWEEN WRITE OPERATIONS. NEW 
396 COMMAND IS ISSUED WHEN TU READY SETS. 
| 398 2 RANDOM = FULL STOP WITH RANDOM DELAY (1-256 MILLISECONDS) 
400 
401 
402 
403 
404 
405 4.3.2.7 READ START/STOP MODE 
407 THERE ARE 3 TYPES OF MODES FOR SELECTION (O THRU 2) 
409 RMO DESCRIPTION 
411 0 NONSTOP - NO WAITING BETWEEN READ OPERATIONS. NEW 
412 COMMAND IS ISSUED WHEN CU READY SETS. : 
414 1 START/STOP = FULL STOP BETWEEN READ OPERATIONS. NEW 
415 COMMAND IS ISSUED WHEN TU READY SETS. 
417 2 RANDOM - FULL STOP WITH RANDOM DELAY (1-256 MILLISECONDS) 
419 | 4.3.2.8 FINAL TEST SELECT APPROVAL 
421 AFTER SELECTING RMO, IF ALL PARAMETERS SELECTED ARE LEGAL, ‘Ok’ 
422 WILL BE PRINTED. If THE PARAMETERS SELECTED STILL CORRE SPOND 
423 TO THE OPERATORS INTENTIONS HE MUST TYPE A CARRIAGE RETURN 
424 TO SAVE THE PARAMETERS. TYPING ANY OTHER KEY NOW, OR IN FACT 
425 AT ANY TIME DURING PARAMETER SELECTION TYPING AN ILLEGAL KEY 
| 426 WILL CAUSE THE PRESENT PARAMETERS TO BE DELETED AND A NEW 
427 PARAMETER SELECTION TO BE INITIATED. UP TO TEN SETS OF 
428 PARAMETER SELECTIONS CAN BE MADE. EACH SET WILL BE EXECUTED 
429 AFTER THE PREVIOUS SET REACHES END OF TAPE. TO TERMINATE 
430 PARAMETER SELECTION A SECOND CARRIAGE RETURN MUST BE TYPED AFTER 
431 SELECTING A SET UF PARAMETERS. 
| 435 4.3.2.9 TEST SELECTION EXAMPLES 
| 
L 
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436 520210060 atm 
437 3K? 

| 438 0 O 8 $ 2 2. OKX? 

439 0 7 2 1 0 OK (CR) 

| 440 (CR) 

| 44 TWO PARAMETERS SETS WERE SELECTED BY THE ABOVE SEQUENCE 
644 TEST3, PATTERN Pa EVEN PARITY, 200 BPI, MAXIMUM RECORD LENGTH, 

| 45 WRITE NONS READ NONSTOP 

| 446 TEST 0, PATTERN ap ODD PARITY, 800 BPI, VARYING RECORD LENGTH 
447 (MIN TO MAX), WRITE START/STOP, READ NONST 

| 448 (NOTE: EVEN THOUGH TEST 0 IS A WRITE ONLY TEST, ALL , PARAMETERS 
449 MUST BE SATISFIED.) (IN THIS CASE RMO HAS NO EFFECT) 
451 IN THE SECOND PARAMETER SET A ‘K'’ WAS TYPED WHICH WAS ILLEGAL 
432 AND THE SET WAS REINITIALIZED. 
454 IN THE THIRD PARAMETER SET AN 'X'' WAS TYPED INSTEAD OF A CAR- 
455 RIAGE RETURN AND THE PARAMETERS WERE IGNORED. AFTER AT LEAST 
456 ONE GOOD SET WAS SELECTED A CARRIAGE RETURN WAS TYPED AT THE 
457 BEGINNING OF THE PARAMETER SELECTION AND THE PROGRAM WOULD START 
458 TESTING. 
459 
460 
461 
re 
464 4.3.2.10 AUTOMATIC PARAMETER SELECTION 
466 STARTING AT 200 WILL CAUSE THE FOLLOWING TEST PARAMETERS 
467 TO BE SELECTED AUTOMATICALLY 
469 TST PAT PAR DEN RLS WMO RMO 
470 Wear SS ee ee es ee 
471 me Bee Oe as Eee Soe 
472 Foe ss Bey Boe: Fae ee 
473 
474 
475 
476 
ras 
479 5.0 OPERATING PROCEDURE 
481 THIS PROGRAM HAS BEEN MODIFIED TO RUN oN A PROCESSOR WITH OR WITHOUT 
482 A HARDWARE SWITCH REGISTER. WHEN FIRST EXECUTED THE PROGRAM TESTS 
483 THE EXISTENCE OF A HARDWARE SWITCH REGISTER. IF NOT FOUND A 
484 SOFTWARE SWITCH REGISTER LOCATION (SWREG=LOC. 176 ) IS DEFAULTED TO. 
485 IF THIS IS THE CASE, UPON EXECUTION THE CONTENTS OF THE SWREG ARE 
486 DUMPED IN OCTAL ON THE CONSOLE TTY AND ANY CHANGES ARE REQUESTED 
488 (IE)  SWR=XXXXXX NEW= 
490 POSSIBLE RESPONSES ARE: 





——_ 
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492 1 <CR> IF NO CHANGES ARE TO BE MADE 

493 2 6 DIGITS 0-7 To REPRESENT IN OCTAL THE NEW SWITCH REGISTER 

49% sLAST DIGIT FOLLOWED BY 

495 3. “U 10" ALLOW REENTERING VALUE IF ERROR’ 1S COMMITTED 

496 KEYING IN SWREG VALUE. 

497 4 <LF> ONLY VALID FOR ACT-11 SYSTEMS-DO NOT USE 

499 BUILT INTO THE PROGRAM IS THE ABILITY TO DYNAMICALLY CHANGE THE 

500 CONTENTS OF SWREG DURING PROGRAM EXECUTION. BY STRIKING *G 

501 (CNTL G) ON CONSOLE TTY THE OPERATOR SETS A REQUEST FLAG TO CHANGE 

502 THE CONTENTS OF SWREG, WHICH IS PROCESSED IN KEY AREAS OF THE PROGRAM 
CODE (IE) ERROR ROUTINES, AFTER HALTS END OF PASS, AND OTHER 


APPLICABLF AREAS. 


SSENEaRS 


5.1 OPERATIONAL SWITCH SETTINGS 


ai} THE OPERATIONAL SWITCH SETTINGS ARE USED TO: 

a7 A. ALTER ERROR RECOVERY PROCEDURES 

4 B. DELETE ERROR PRINTOUTS 

517 C. CAUSE A_TEST SEQUENCE TO BE REPEATED WITH A VARIATION 

a4 THE PATTERN, RECORD LENGTH SEQUENCE, WRITE MODE, OR READ MODE 
520 

521 

522 

523 

258 : 5.1.1 SWITCHES TO ALTER ERROR RECOVERY 

526 THE FUNCTION PERFORMED IS WITH THE SWITCH IW THE ‘l’’ (OR UP) 
asf POSITION. 

a4 SW FUNCT ION PURPOSE 

531 & DELETE READ RE-TRYS USE OF THIS SWITCH WILL CAUSE 
532 DELETION OF THE NORMAL SEQUENCE 
533 OF al ge TO RE-READ A RECORD 
534 AFTER A READ ERROR. THIS WOULD 
535 BE USEFUL FOR SCOPING READ 

o3S OPERATIONS. 

538 5 DELETE WRITE XIRG USE OF THIS SWITCH WILL CAUSE 
539 RECORDS WITH WRITE ERRORS TO 
540 BE LEFT ON TAPE. THE READ PASS 
541 WITH DATA TYPEOUTS SELECTED - 
542 WOULD BE USEFUL FOR DETERMINING 
4 WRITE ERROR ORIGINS. 

545 6 WRITE STATISTICAL USE OF THIS SWITCH WILL CAUSE 
546 RECOVERY & aa 2 RECORDS, 


SPACE 
547 FORWARD 1 RECORD, REWRITE RECORD 


| 
| 
| 
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562 5.1.2 


5.1.3 


E 
| 
| 
| 
| 
| 558 


SEQUENCE TO BE USED INSTEAD 
OF WRITE XIRG SO THAT THE RECORD 
WILL BE REWRITTEN ON APPROXI- 

ELY THE SAME 


AME 
SPOT ON TAPE TO TRY AND FIND BAD TAPE. 


SWITCHES TO CONTROL ERROR PRINTOUTS 


THE FUNCTION PERFORMED IS WITH THE SWITCH IN THE ‘‘I’* (OR 
UP) POSITION. 


SW FUNCTION PURPOSE 
13 SUPPRESS ERROR THE STATISTICS CONCERNING THE 
PRINTOUT NUMBER AND TYPES OF ERRORS WILL 


BE PRINTED WHEN THE TAPE UNIT 


END OF TAPE. FOR LONG 
oF er OF TESTING (OVERNIGHT, ETC) 
IT MAY BE SUFFICIENT TO RECEIVE 
THIS INFORMATION AND NOT HAVE A 
TYPEOUT EACH TIME AN ERROR OCCURRED. 


8 PRINT ERROR STATISTICS AFTER COMPLETION OF EVERY RECORD 
LENGTH SEQUENCE INSTEAD OF AFTER 
END OF TAPE AS IS NORMAL. 
TO ALTER TEST PATTERNS 
SW FUNCTION PURPOSE 
0 CHANGE PATTERN AFTER COMPLETION OF A TEST SE- 
QUENCE REPEAT WITH NEXT PATTERN. 
UNTIL PATTERN 7 IS COMPLETED. 
THIS FEATURE IS USEFUL FOR TESTING MANY COMBINATIONS OF TEST 
PATTERNS WITHOUT REQUIRING THE OPERATOR TO TYPE IN A LARGE 
NUMBER OF PARAMETERS. 
EXAMPLE: TST PAT PAR DEN RLS WMO RMO 
ie ce oe ee oe ee 
© 6 £8 8.8 
WITH SWO=1 


TEST 3 WILL BE EXECUTED 6 TIMES (PATTERNS 2-7) 
AND THEN TEST 4 WILL BE EXECUTED 2 TIMES (PATTERNS 6,7) 


SEQ 0011 
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ERRORS 

WRITE ERRORS 

THE FOLLOWING ERROR TYPEOUTS ARE POSSIBLE DURING A WRITE 
OPERATION. 


A. 


WRITE STATUS ERROR 


COMD STATUS RECORD LENGTH EXPECTED ACTUAL 
XXXXXMK = XXXXXX 


oy | WILL OCCUR IF ERROR (BIT 15 OF COMMAND REGISTER) hy 
WRITE COMMAND. THE CONTENTS OF THE COMMAND AND STA 
REGISTERS IS PRINTED ALONG WITH THE RECORD NUMBER AND RECORD 


XIRG WRITTEN 4 TIMES 

THIS WILL OCCUR IF A WRITE STATUS ERROR CANNOT BE ELIMIN- 

ATED IN oo AT RE-WRITING THE acre WITH ge 
E ‘WRIT Ss 

FOR THE RECORDS TO BE WRITTEN PROPERLY. SETTING SWITCH 

5 TOA ‘I’' WILL DELETE ‘WRITE WITH XIRG"'. 

END OF TAPE 


DRV PAT PAR DEN MODE RECORD oe 
0 7 0 800 SSTP 1276 


WRITE ERRORS = 
RECOVERED AT 1 = 3 
RECOVERED AT 3 = 1 
PERMANENT BADSPOT = 1 


UNIT NUMBER 
Aoeds oy NUMBER 


DENSITY 
MODE = WRITE START/STOP MODE 
RECORD = NUMBER OF RECORDS 
LENGTH = LENGTH OF RECORDS 


ON UNIT 0, USING PATTERN 7, EVEN PARITY, ITE 
MODE START/STOP, 1276 RECORDS OF MAXIMUM (1048 BvTeS) LENGTH 
WERE WRITTEN. DURING THAT TIME 5 WRITE STATUS ERRORS 
OCCURRED, 3 WERE RECOVERED ON THE 1ST RE-WRITE, 1 RECOVERED 
ON THE 3RD RE-WRITE. THE REMAINING ERROR NOT RECOVERED IS 
CONSIDERED TO BE CAUSED BY A PERMANENT BAD SPOT ON TAPE. 


800 BPI, 


SEQ 0012 


4 
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715 6.3.1 WRITE ERROR RECOVERY 


| 
| CZTMCD. P11 03-JUN-80 15:26 SEQ 0013 
| 660 3 
| 661 6.2 READ ERRORS 
663 THE FOLLOWING ERROR TYPEOUTS ARE POSSIBLE DURING A READ 
664 OPERATION: 
| 656 A. READ STATUS ERROR 
665 COMD STATUS RECORD LENGTH EXPECTED ACTUAL 
| 669 XXXXKK —- KXKKKK 47 4 
| 671 THIS WILL OCCUR WHEN ERROR (BIT 15 OF COMMAND REGISTER) 
672 SETS DURING A READ OPERATION. THE CONTENTS OF THE COMMAND 
673 AND STATUS REGISTERS IS PRINTED ALONG WITH THE RECORD NUMBER 
67% AND RECORD LENGTH. 
676 B. READ DATA ERROR 
678 COMD STATUS RECORD LENGTH EXPECTED ACTUAL 
679 XXXXXX — KXXKKK 107 +1024 177777 175777 
681 THIS WILL OCCUR WHEN THE DATA READ DOES NOT AGREE WITH THE 
682 ATA WRITTEN. THE CONTENTS OF THE COMMAND AND STATUS REGISTERS 
683 "8 PRINTED, ALONG WITH THE RECORD NUMBER AND RECORD LENGTH 
684 ALSO PRINTED IS THE CONTENTS OF THE MEMORY ADDRESS FROM 
685 WHICH THE DATA WAS WRITTEN (EXPECTED) AND THE CONTENTS OF THE 
ra-74 MEMORY ADDRESS INTO WHICH IT WAS READ (ACTUAL). THIS INDI- 
| 687 CATES THE 7f Rs DATA TRANSFER ERROR FOUND FOR THE RECORD. 
688 NO ATTEMPT IS MADE TO DETERMINE IF THERE ARE OTHER DATA ERRORS 
689 IN THE RECORD. 
690 
691 C. READ PASS 
692 
693 END OF TAPE 
695 DRV PAT PAR DEN MODE RECORD LENGTH 
69% 4 1 CD NSTP 1276 M-Max 
698 READ STATUS ERRORS = 3 
699 DATA ERRORS = 1 
700 NON RECOVERABLE ERRORS = 0 
702 v ON UNIT 3, USING PATTERN 4, ODD PARITY, CORE DUMP, READ MODE 
703 NONSTOP, 1276 RECORDS OF VARYING LENGTH (4 TO "024 WERE 
704 g READ. ING THAT TIME oh READ STATUS ERRORS AND 1 DAT 
705 ERROR OCCURRED. THERE Ue £ 0 NON-RECOVERABLE ERRORS WH WHICH 
706 INDICATES THAT THE STATUS to DATA ERRORS WERE ELIMINATED BY 
707 RE-READING THE RECORD UP TO THREE TIMES. 
709 
710 
711 
712 
ak 6.3 ERROR RECOVERY PROCEPURES 
Bs 
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6.3.1.2 
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740 6.3.1.3 


46 
747 6.3.1.4 


753 6.3.2 


x 
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SEQ 0014 


THE py et TO RECOVER FROM A WRITE ERROR IS DETERMINED BY 
THE FOLLOWING: 


A. IS IT A ‘WRITE ONLY'’ TEST OR WILL THE DATA BE READ? 
B. IS "WRITE STATISTICAL RECOVERY’’ SELECTED (SW 6=1)? 
C. IS "DELETE WRITE WITH XIRG’’ SELECTED (Sw 5=1)? 
I 
tA 


F IT IS A ‘WRITE ONLY’ TEST AND ‘WRITE STATISTICAL RECOVERY’ 
S NOT SELECTED (SW 6=0) THE WRITE ERROR ie SIMPLY COUNTED 
THE PROGRAM PROCEEDS TO THE NEXT RECORD 


IF IT IS A ‘WRITE ONLY’* TEST AND 5 te STATISTICAL 
pine : * SELECTED (SW 6=1), A WRITE ERROR IS COUNTED AND THEN 
RECOVERY SEQUENCE (BACKSPACE “2 RECORDS, SPACE FORWARD 1 RECORD, 
REURITE RECORD) _IS ENTERED. THIS RECOVERY SEQUENCE WILL BE 
REPEATED UP TO 7 TIMES IF THE WRITE ERROR PERSISTS. IF A 
WRITE ERROR IS NOT Fy eg 4 AFTER THE 8TH ATTEMPT IT IS 
COUNTED AS A PERMANENT BAD SPOT ON TAPE. STATISTICS ARE SAVED 
TO INDICATE HOW MANY TIMES THE REWRITE SEQUENCE HAD TO BE RE- 
PEATED TO RECOVER FROM EACH WRITE ERROR. 


IF IT IS A “WRITE AND READ’* TEST AND ‘WRITE STATISTICAL RECOVERY'’ 
IS SELECTED (SW 6=1) AND "WRITE WITH XIRG'* IS NOT DELETED (Sw 5=0) 
THE PROGRAM WILL FIRST ATTEMPT TO DO A ‘WRITE STATISTICAL RECOVERY''. 
IF A PERMANENT BAD SPOT IS. € NCOUNTERED THE PROGRAM WILL THEN 
ATTEMPT TO RECOVER WITH A RITE WITH XIRG*. FAILURE no RECOVER 

AT THIS POINT SHOULD RESULT IN A READ ERROR DURING THE READ PASS. 


IF IT IS A ‘WRITE AND READ'’ TEST AND ‘WRITE STATISTICAL RECOVERY’ 
4 NOT Fy (SW 6=0) AND ‘WRITE WITH XIRG’’ IS NOT DELETED 
RESULT IN A READ ERROR DURING READ P, 

READ ERROR RECOVERY 

A READ ERROR CAN OCCUR FOR TWO REASONS: STATUS ERROR OR DATA 


E - A PROPER COUNT IS TAKEN FOR EACH ERROR. RECOVERY 
ERROR WILL CONSIST OF TRYING TO RE THE RECORD UP 
TO TWO MORE TIMES (UNLESS SW 4=1 TO DELETE READ RE-TRYS FOR 


SCOPING PURPOSES). IF THE ERROR PERSISTS IT IS CONSIDERED ‘'NON- 
RECOVERABLE’’ AND THE PROGRAM WILL CONTINUE WITH THE NEXT RECORD. 


RESTRICTIONS 
NONE 


MISCELLANEOUS 





(a 
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| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
791 


‘czTMCD0 TM11 DATA RELIAB 6 MACY11 30A(1052) 


8.1 


8.2 


9.2 


9.3 


ashanti os 
O3-JUN-80 15:27 PAGE 15 


- SEQ 0015 
TAPE LENGTH 
SINCE EACH OF THE TESTS DEPEND ON REACHING THE “FOr REFLECTOR 
TERMINATING IT COULD BE AD ANTAGEOUS TO USE A “SHORT” TAPE. 


US 
THIS WOULD ALLOW FOR LESS TIME “0 RUN _A SERIES OF TESTS WHILE 
ARYING THE TEST PARAMETERS Vy te pet 5.1.35). ~~ Bs 
THAT CONSTANTLY CHANGING 


VINDER Test KELY TO , 
IN_ANY EVE A SSHORT! TAPE 1S DESIRED. JUST PLACE_AN “ EOT"" 
REFLECTIVE STRIP APPROXIMATELY 50, FEET DOWN TAPE FROM THE ‘BOT’ 
MARKER. SO THAT THE TAPE IS STILL USEFUL AS A ‘LONG'’ TAPE 
ANOTHER ‘BOT MARKER COULD BE PLACED A SHORT DISTANCE (APPROX 
IMATELY 10 FEET) FARTHER DOWN ON TAPE. THIS WOULD EFFECTIVELY 
GIVE YOU TWO TAPES. CARE MUST BE EXERCISED WHEN MOUNTING THE TAPE 
TO POSITION IT AT THE PROPER ‘BOT‘’ MARKER. 


MEMORY AVAILABLE 


THE PROGRAM REQUIRES Pe OF MEMORY. IF 8K IS AVAILABLE, 

co ate THE PROGRAM AT ADDRESS 200 OR 210 WILL EXPAND THE WRITE 
AND READ BUFFERS SO THAT MINIMUM LENGTH RECORDS WILL BE 

8 BYTES AND MAXIMUM LENGTH RECORDS WILL BE 2048 BYTES. 


PROGRAM DESCRIPTION 
GENERAL DESCRIPTION 


THE PROGRAM IS DESIGNED AROUND TWO MAIN yoy hey *WRITE’’ AND 
READ"* AND A SERIES OF MINOR SUBROUTINES FOR MANIPULATING UNIT 
SELECTION, HANDLING ERROR STATISTICS, AND RECORD POSITIONING. 
IF MORE THAN ONE UNIT i3 SELECTED THE UNIT WITH THE LOWEST 
NUMER IS SELECTED FIRST AND WHEN THE SEQUENCE IS COMPLETED 
THEN THE NEXT LOWEST UNIT NUMBER IS SELECTED UNTIL ALL UNITS 
ho tie THIS PROCESS IS REPEATED UNTIL ALL UNITS REACH 


TEST 0 

THIS IS A “WRITE ONLY'' TEST. THE PROCEDURE IS TO WRITE 1 RECORD, 
UNTIL EOT. WRITE MODE OF NONSTOP 

(WMO=0) WILL NOT BE AN EFFECTIVE SELECTION FOR THIS TEST BECAUSE 

THE WRITE ROUTINE IS EXITED AFTER EACH RECORD TO DETERMINE IF 

4 UNITS ARE SELECTED. READ MODE (RMO) HAS NO EFFECT ON 

TEST 1 

THIS IS A ‘WRITE ONLY’* TEST SIMILAR TO TEST O EXCEPT A ane 


OF 256 RECORDS IS WRITTEN ON EACH UNIT BEFORE CHANGING TO THE 
NEXT UNIT. READ MODE (RMO) HAS NO EFFECT ON THIS TEST. 





a 
| C2T 
be 
| 
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9.4 


9.5 


9.6 


9.7 


10. 


o=—- NWSE WN 


Ono wo--— 2m — 


SEQ 0016 
TEST 2 
THIS IS A ‘WRITE AND READ'' TEST. THE PROCEDURE IS TO ye 256 
RECORDS ON EACH UNIT, THEN BACKSPACE ne RECORDS ON EACH UNIT 
THEN READ 256 RECORDS ON EACH UNIT, AND THEN REPEAT THE SEQUENCE 
UNTIL ALL UNITS ARE AT EOT. 
TEST 3 
THIS IS A "WRITE AND READ’ TEST. THE PROCEDURE IS TO WRITE 1 
RECORD, BACKSPACE, READ 1 RECORD AND REPEAT FOR EACH UNIT, THEN 
REPEAT THE SEQUENCE UNTIL ALL UNITS ARE AT EOT. WRITE MODE OR 
READ MODE OF NONSTOP (WMO=0 OR RMO=0) WILL NOT BE EFFECTIVE 
FOR THIS TEST. 
TEST 4 


THIS IS A ‘WRITE AND READ’* TEST. IT IS SIMILAR TO TEST 2 EXCEPT 
UNITS ARE CHANGED BETWEEN EACH RECORD DURING WRITE, BACKSPACE, 
READ MODE OF NONSTOP (WMO=0 OR RMO=0) 


AND READ. WRITE MODE OR 

WILL NOT BE EFFECTIVE FOR THIS TEST. 

TEST 5 

THIS IS A ‘READ ONLY’’ TEST. THE PROCEDURE IS TO READ 1 ior 


REPEAT FOR ALL UNITS, AND CONTINUE 
THE MAIN PURPOSE OF THIS TEST IS TO PROVE COMPATIBILITY AMONG” 
ONE UNIT SHOULD BE ABL 


BE READ ON ECT 
PATTERN AND RECORD LENGTH SEQUENCE MUST BE THE SAME AS Lemay 3 USED 
TO WRITE THE DATA ON TAPE. ANY OF THE OTHER TESTS (0 THRU 4 
CAN BE USED TO GENERATE THE DATA. 


LISTING 


STATUS AND COMMAND REGISTER BIT ASSIGNMENTS 
COMMAND REGISTER 
ERROR 
DEN 8 
DEN 5 
POWER CLEAR 
PARITY 0 = ODD 1 = EVEN 
UNIT SEL. BIT 2 
UNIT SEL. BIT 1 
UNIT SEL. BIT pe 


CONTROL UNIT R 
INTERRUPT ENABL 


= 800 BPI 7 TRACK 
= 800 BPI 9 TRACK 


ADY 
E 
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5 ADDRESS BIT 17 

8 ADDRESS BIT 16 

3 FUNCTION BIT 2 OOO = OFF LINE 100 = SPACE FORWARD 
001 = READ 101 = SPACE REVERSE 

2 FUNCTION BIT 1 010 = WRITE 110 = WRITE XIRG 

} A tt pe BIT O 011 = WRITE EOF 111 = REWIND 


STATUS REGISTER 
ILLEGAL COMMAND (ILC) 


END OF FILE (EOF) 
CYCLICAL REDUNDANCY ERROR (CRE) 
PARITY ERROR (PAE) 


BUS GRANT LATE (BGL) 
END OF TAPE (EOT) 
RECORD LENGTH ERROR (RLE) 


BAD TAPE ERROR (BTE) 
NON EXISTENT MEMORY (NXM) 
SELECT REMOTE (SELR) 


BEGINNING OF TAPE (BOT) 
7 CHANNEL (7CH) 
SETTLE DOWN (SDWN) 


WRITE LOCK (WRL) 
REWIND STATUS (RWS) 
TAPE UNIT READY (TUR) 


miata ail 
om NWSE WN 


*=-O—™M WEMY ANDO O-— 


-TITLE CZTMCDO TM11 DATA RELIAB 
“COPYRIGHT 1970,1980 DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754 
;REVISED SEPT 1971, J.RODENHISER 
“REVISED AUGUST 1972, JIM LACEY 
[REVISED FEB O76" RON | PLATUK UKIS 
“REVISED MAY 1980. R 
: CHGD1 - INSERTED SUSW AFTER AUTOST FOR SWITCHLESS PROC. 
+ CHGD2 - INSERTED END OF PASS STATEMENT. 


LARA AERA EERE EEE 


;NOTE: ry PROGRAM HAS BEEN MODIFIED TO WORK WITH OR WITHOUT 


: A HARDWARE SWITCH REGISTER 

ete e eee trite set rit i titi titi titi titi ii titi it) 
RO=2Z0 

R1=%1 

R2=%2 


SEQ 0017 


orm i 
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000003 
000004 
000005 
000006 
000007 


000034 
012426 
000046 
003310 
0000 
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-ENABL ABS 


[EAA AREER EERE EERE 


SOFTWARE SWITCH REGISTER LOCATION 


LARA EAEEEEEEEEEER ERR 


=174 
DISPREG:0 
SWREG: 0 
=200 
JMP AUTOST 
JMP MEM4K 
JMP MEM8K 
.-=500 
MTS: 172520 
MTC: 172522 
BC: 172524 
CA: 172526 
CC: 177776 
SWR: 177570 
DISPLAY:177570 
TKS: 177560 
TKB: 177562 
TPS: 177564 
TPB: 177566 
MAXLEN: 1024. ;MAX RECORD aes 
MINLEN: 4. :MIN RECORD LENGTH 
re BUFFER ;STARTING ADDRESS OF WRITE BUFFER 
eu ay rene t6as. [STARTING ADDRESS OF READ BUFFER 
STACK=500 
; TEMPORARY STORAGE AREAS 
TIB: 0 
TEMPST: 0 
COUNT: 0O 
RDSW: 0 
ATST 0 


SEQ 0018 
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/C2TMCD.P11 03-JUN=80 15:26 SEQ 0019 
996 000552 000000 DRVSEL: 0 
987 000554 000000 STRLEN: 0 
998 000556 000000 LENGTH: 0 
999 000560 000000 MSBITS: 0 
| 1000 000562 000000 SVRECR: 0 
7001 000564 000000 OMAND: 0 
1002 000566 000000 CDRVBT: 0 
| 1008 000570 000000 CDRIVE: 0 
1004 000572 000000 RDPASS: 0 
| 1005 000574 000000 WRPASS: 0 
| 1006 000576 000000 BLKINC: 0 
| 1007 000600 000000 STATRD: 0 
| 4008 000602 000000 WRCHEK: 0 
| 1009 000604 000000 0 
4010 000606 000000 0 
| 1011 000619 900000 0 
1012 000612 000000 0 
1013 000614 000000 0 
4014 000616 000000 0 
1915 000620 000000 0 
1017 000622 000000 PERMBS: 0 
1018 000624 000000 RECORD: 0 
1019 000626 000000 WRRECR: 0 
1020 000630 000000 LASRCR: 0 
1021 000632 000000 RDERRS: 0 
1022 000634 000000 DAERRS: 0 
1023 000636 000000 NRREAD: 0 
1024 000640 000000 WRTLEN: 0 
1025 000642 000000 READLN: 0 
1026 000644 000000 ES: 0 
1027 
1028 
1029 DRVADR: DOTAB 
1030 000650 000732 DITAB 
1031 000652 000776 D2TAB 
1032 000654 001042 DSTAB 
1033 000656 001106 D4 TAB 
034 000660 001152 DSTAB 
1035 000662 001216 D6TAB 
1036 000664 001262 D7TAB 
1038 000666 000000 DOTAB: 0 
1039 000732 " =DOTAB+44 
1040 000732 000000 pitas: 6 
1041 000776 " =D1TAB+44 6S 
| 1042 000776 000000 p2taB: 0 
1043 001042 " =D2TAB+44 
1044 001042 000000 p3TaB: 0 
1045 001106 " =D3TAB+44 
1046 001106 000000 p4TaB: 6 
1047 001152 “ =D4TAB+44 
1048 001152 000000 psTaB: 0 
1049 001216 " =DSTAB+44 
1050 001216 000000 peTaB: 0 
1081 001262 " =D6TAB+44 


“CZTMCDO TM11 DATA RELIAB 


| CZTMCD. P11 O3-JUN-80 15:26 
| 1052 001262 900000 
1053 001326 
| 1054 901326 900000 
1055 001330 000000 
1056 001332 000000 
| 1057 001334 000000 
| 1058 001336 000000 
1060 001340 900000 
1061 001342 000000 
1062 001344 000000 
1063 001346 000000 
| 1064 001350 000000 
1065 001352 000000 
1066 001354 000000 
1067 001356 000000 
1068 001360 000000 
1069 001362 000000 
| 1070 001364 000000 
1071 
1072 
1073 001366 012706 000500 
1074 001372 104432 
1075 001374 012767 177777 
1076 001402 012767 036225 
1077 001410 012767 040752 
1078 001416 012767 027752 
1079 001424 012767 000003 
1080 001432 012767 123456 
| 1081 001440 12767 176543 
1083 001446 012737 001464 
1084 001454 005767 022324 
1085 001460 000240 
1086 001462 000413 
1087 001464 022626 
1088 001466 012767 
1089 001474 012767 002000 
1090 001502 012767 016004 
1091 001510 000411 
1092 001512 012767 000010 
1093 001520 012767 004000 
1094 001526 012767 020004 
1095 
1096 
1097 
1098 
1099 
1100 001534 012737 
1101 001542 012777 010000 
1102 001550 005067 176776 
1103 001554 005067 177000 
1104 001560 012700 000200 
1105 001564 105777 176712 
| 1106 901570 100035 
1107 001572 016777 176754 
| 
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177024 
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D7TAB: 0 
=D7TAB+44 
CHARIN: 0 : CHARACTER JUST INPUT 
NUMTST: 0 : R OF TEST 
PARAM: 0 ‘TEST PARAMETERS 
TSTEX: 0 [POINTS TO TEST PARAMETERS TO BE EXECUTED 
TEST: 0 [CONTAINS CURRENT TEST NUMBER 
TSTTBL: 0 :TEST TABLE 
9 [UP TO 10 TESTS CAN BE SELECTED TO 
y [BE RUN IN CONSECUTIVE ORDER 
0 
0 
0 
0 
0 
0 
0 
AUTOST: MOV #STACK, SP 
CHGD1: SUSW :SEE IF SOFT Sw REG NECESSARY 
MOV #~1 AIST 
MOV #36225,T 
MOV #40752, Teter +2 
MOV #27752. TSTTBL+4 
MOV #3,NUMTST 
MOV vL :PRIME RANDOM NUMBER GENERATER 
MOV #176543,HINUM 
:DETERMINE THE SIZE OF THE WRITE AND READ BUFFERS. 
MOV WNXMRET a4 :SETUP NXM VECTOR 
TST BUF FER+4096. TOVER 4K OF MEMORY? 
BR OVER4K :BR IF YES 
NXMRET: CMP (SP)+, (SP)+ [POP THE STACK 
MOV #4 MINLEN 
MOV #1024. ,MAXLEN 
MOV WBUFFERM OSG. , RBUF 
BR TU. SEL :GO SELCT DRIVES 
OVER4K: MOV #8. .MINLEN 
mov #2048. ,MAXLEN 
FER+2048. , 
DETERMINE DRIVES TO BE TESTED. 
tA DRIVE WILL BE TESTED IF 


: 1. I 


‘ 3 
TU.SEL: MOV 
MO 


. 
bas te 


MOV 
TSTB 


T CAN BE SELECTED 

T IS 7 TRACK 

T 1S WRITE ENABLED 
#6, an :SET TRAP CATCHER 
#10000, amTC *PWR CLR 
DRVSEL *CLEAR DRIVE TABLE 
MSBITS 
#200.RO :RO=DRIVE 0 
IDSELF BR IF NO CU RDY 
DRVSEL,amTC SELECT A DRIVE 


_ SEQ 0020 


[oon 


SE aE el ae 
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CZTMCD.P11 — 03=JUN-80 15:26 - SEQ 0021 
31108 901600 912702 900024 Mov  #20,,R2 ;SETUP_R2 FOR WAIT LOOP 
1109 001604 0 000100 176666 USSTST: BIT #100, aMTS DOES DRIVE EXIST? 
1110 001612 001003 BNE —USS..0Kk BR IF YES 
1111 001614 005302 DEC = Re 
ig 001616 So3ay5 BGT USSTST 
| 1113 001 1 BR —-._ NO. SEL ;DRIVE IS NON-EXISTENCE 
| 1114 001622 032777 000020 176650 USS.OK: BIT  § #20,aMTS 31S THIS DRIVE 7 OR 9 CHN? 
1115 001 001406 BEQ NO. SEL BR IF 9 CHN 
1116 001632 032777 000004 176640 BIT #4,aMTS 31S WRITE LOCK ON? 
1117 001640 001002 BNE —NO.. SEL ;BR_IF YES 
1118 001642 050067 176712 BIS —- RO, MSBITS PUT DRIVE INTO TABLE 
| 1119 001646 105267 176701 NO.SEL: INCB — DRVSEL+1 ZINC. THE DRIVE NUMBER 
1120 001652 000241 CLC 
| 1121 001654 006000 ROR RO 7HAS ALL DRIVES BEEN TESTED FOR EXISTENCE? 
1122 001656 001545 BNE = NXT. TU BR IF NO 
1124 ; TYPE-OUT NAME OF PROGRAM AND MIN. AND MAX. RECORD LENGTHS. 
1125 001660 012702 013115 IDSELF: MOV #MSG10A,R2 
1126 001664 104404 TOP 
| 1127 001666 016702 176636 MOV MINLEN, R2 
1128 001672 104426 DECPRT ;PRINT MIN. LENGTH 
1129 001674 016702 176626 MOV MAXLEN,, R2 
1130 001700 104426 DECPRT 7PRINT MAX. LENGTH 
1131 001702 005767 176652 TST MSBITS ;WAS a DRIVES SELECTED? 
1132 001706 001002 BNE .+6 IF 
ile 001710 000167 000160 JMP START1 “NO--GO "RAVE OPERATOR SELECT DRIVES 
1135 ;TYPE-OUT THE DRIVE/S TO BE TESTED 
1136 001714 012702 013217 MOV — #MSG10B,,R2 
1137 001720 104404 TOP 
1138 001722 105067 012056 CLRB BUFFER 
1139 001726 012701 014004 MOV = ABUFFER,R1 
1140 001732 005000 CLR RO :SET RO TO DRIVE 0 
1141 001734 012702 000200 MOV #200,R2 SET R2 TO DRIVE 0 
1143 :FORM AND SAVE DRIVE NUMBER FOR TYPE-OUT 
1144 001740 105021 CLRB = (R1)+ ;SET EOM 
1145 001742 112721 000040 MOVB #" ,(R1)+ 3: SPACE 
1146 001746 030267 176606 LOOPER: BIT R2,MSBITS :DID THIS DRIVE NUMBER EXIST? 
1147 001752 001405 BEQ  § $ZEROS :BR IF NO 
1148 001754 110011 MOVB RO, (R1) YES=-SAVE THE NUMBER 
1149 001756 152721 000060 BISB #0, (R1)+ MAKE IT ASCII 
1150 001762 112721 000054 MOVB = #", , (R1)+ ; COMMA 
1151 001766 000241 $ZEROS: CLC POSITION DRIVE BIT 
1152 001770 006002 ROR = R2 
1153 001772 005200 INC — RO UPDATE DRIVE NUMBER 
1154 001774 020027 000007 CMP = RO #7 ;LAST 
1155 002000 003762 BLE —_LOOPER :BR_IF NO 
1156 002002 105011 CLRB = (R1) SET EOM 
1157 002004 112741 000100 MOVB = #'a,-(R1) 7CR & L 
1158 002010 012702 014004 MOV BUFFER ,R2 7; TYPE THE DRIVE/S SELECTED 
1159 002014 104404 TOP 
1160 092016 000167 001074 JMP EXECUT 3GO START TESTING 
1161 sMODIFY RECORD LENGTHS AND BUFFER AREAS FOR 4K. 
| 1162 002022 012767 000004 176500 MEM4K: MOV #4. MINLEN 
| 1163 002030 012767 002000 176470 MOV #1024. ,MAXLEN 
| 








ie 
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CZTMCD.P11 —O3-JUN-80 15:26 SEQ 0022 
1164 002036 012767 016004 176470 MOV WBUF FER+1024. , RBUF 
1165 002044 000611 BR S 
1166 sMODIFY RECORD LENGTHS AND BUFFER AREAS FOR 8K. 
1167 012767 000010 176454 MEMB8K: MOV r" NLEN 
1168 002054 012767 004000 176444 MOV #2048. MAXLEN 
1169 012767 020004 176444 MOV WBUFFER+2008. .RBUF 
1170 002070 005067 176454 START: (CLR ATST ;NOT AUTO STAR 
1171 002074 012706 000500 START1: MOV #STACK, SP s INITIALIZE ST Atk 
1172 002100 104432 SUSW 
1173 002102 012767 123456 005310 MOV #123456,LONUM PRIME RANDOM 
1174 002110 012767 176543 005304 MOV #176543,HINUM NUMBER GENERATOR 
1175 002116 012702 012513 MOV #SG1,R2 
1176 002122 104404 TOP :PRINT "SELECT DRIVES" 
1177 002124 005067 176430 CLR MSBITS [CLEAR SELECTED DRIVE INDICATOR 
1178 0021 1 SELDRV: WAITKY 
1179 002132 122767 000015 177166 CMPB #15, CHARIN zWAS CHARACTER A CARRIAGE RETURN? 
1180 002140 001010 BNE SELD1 : 
1181 002142 005767 176412 TST MSBITS TYES, WERE ANY DRIVES SELECTED 
1182 002146 001752 ' BEQ START1 =NO 
1183 002150 005767 176374 TST ATST 
1184 002154 001454 BEQ SELTST ZYES NOW SELECT TESTS 
1185 002156 000167 000734 JMP EXECUT 
1186 002162 122767 000070 177136 SELD1: CMPB #70, CHARIN 71S CHARACTER, A VALID NUMBER 0-7? 
1187 002170 003404 BLE SELD2 [NO, PRINT ' 
1188 002172 122767 000060 177126 CMPB ss #60, CHARIN 1S ChabarTen A VALID NUMBER 0-7? 
1189 002200 003407 BLE VALID :YES 
1190 002202 105777 176314 SELD2: TSTB aTPs 
1191 002206 100375 BPL 4 
1192 002210 012777 000077 176306 MOV #'?,aTPB :PRINT "2° 
1193 002216 000424 BR VALS 
119% ;HAVE VALID DRIVE NUMBER 
1195 002220 142767 000270 177100 VALID: BICB #270, CHARIN zMASK OUT NUMBER 
1196 002226 105167 177074 COMB —« CHARIN 
1197 002232 012700 000200 MOV #200,RO ZINITIALIZE BIT POSITION FOR DRIVE 0 
1198 002236 105267 177064 VAL1: INCB  CHARIN a] TO DRIVE SELECT 
1199 002242 001402 BEQ VAL2 HAVE DRIVE OF EQUAL TO ZERO 
1200 002244 006200 ASR RO :MOVE BIT POSITION TO NEXT DRIVE 
1201 002246 000773 a! OR VAL1 [TRY AGAIN 
1202 002250 130067 176304 VAL2: BITB  RO,MSBITS : COMPARE DRIVE SELECT WITH PREVIOUS SELECTED 
1203 002254 001003 BNE V 
1204 002256 150067 176276 BIS8 RO, MSBITS :DRIVE WASN'T PREVIOUSLY SET, SO SET IT NOW. 
1205 002262 000402 BR VAL4 
1206 140067 176270 VAL3: BICB  RO,MSBITS :DRIVE WAS SET, CLEAR IT. 
1207 002276 105777 176226 VAL4: TSTB  aTPS 
1208 002274 100375 BPL ee 
1209 002276 012777 000054 176220 MOV #', ,aTPB sPRINT COMMA 
iss? 002304 000711 BR SELDRV ZRETURN TO WAIT FOR NEXT KEY 
1212 
1213 ;HAVE DRIVES SELECTED-NOwW GET TEST SELECTION 
1214 002306 012702 012534 SELTST: MOV #MSG2 .R2 
1215 002312 104404 T ;PRINT*SELECT TESTS’ 
1216 002314 005067 177010 CLR NUMTST [CLEAR TEST NUMBERS SELECTED 
1217 002320 012700 001340 MOV #TSTTBL RO ‘INITIALIZE TEST TABLE POINTER 
1218 334 104400 SELT1: WAITKY 
1219 002326 122767 000015 176772 CMPB #15, CHARIN ;WAS CHARACTER A CARRIAGE RETURN? 


ae —_ 
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1 
1261 
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1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1372 
1273 
1274 
1275 


176766 
000546 
000066 


000060 
012506 


176722 


107777 


000070 
000057 
176654 
176650 
170777 
176636 
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176750 
176740 


176672 
176662 


176642 


176624 
176614 


176574 
176564 


176546 


176530 
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BNE SELT2 
TST T _ GWERE ANY TESTS SELECTED? 
BEQ SELT3 ~ 
JMP EXECUT + YES, EXECUTE TESTS 
SELT2: COPS #66 CHARIN iis CHARACTER A VALID NUMBER 0-5 
CMPB ss #60, CHARIN I$ CHARACTER A VALID NUMBER 0-5 
BLE SELPAT YES 
SELT3: MOV #MSGO-R2 
BR SELT1 _ ;RETURN TO WAIT FOR TEST SELECT 
SELPAT: MOV CHARIN,R& 
SWAB RG ;ROTATE TEST NUMBER INTO POSITION 
ROL RG 
ROL RG 
ROL RG 
ROL RG 
BIC #107777 R4 
SP3 TYPE 3 SPACES 
;HAVE VALID TEST ASELECTED. NOW GET SELECTED PATTERN 
cee #70, CHARIN 71S CHARACTER A VALID NUMBER 0-7 
COPS #57 CHARIN :I1S CHARACTER A VALID NUMBER 0-7 
SWAB = CHARIN :MOVE PATTERN SELECT INTO POSITION 
ROL CHARIN 
BIC #170777, CHARIN 
Bs CHARIN, RG : COMBINE PATTERN WITH TEST 
WAIT FOR PARITY SELECTION (O=EVEN, 1=ODD) 
CMPB ss #60, CHARI :1S CHARACTER=0 
BEQ SELPR TYES, EVEN PARITY 
CMPB s#6 1, CHARIN ‘IS CHARACTER=1 
BNE SELT3 [NO, HAVE ILLEGAL KEY 
BIS #400,R4 [YES, ODD PARITY 
SELPR: SP3 
zWAIT FOR DENSITY SELECTION 
WAITKY 
CMPB ss #62, CHARIN z1S CHARACTER=2 
BEQ L :YES, DENSITY=2008P1 
CMPB so #65, CHARIN TIS CHARACTER=5 
BNE SELDN1 : 
BIS #100,R4 [SET DENSITY=556 BPI 
SELDN1: COPS #70, CHARIN z1S CHARACTER=8 
BIS #200,R4 7SET DENSITY=800 BP! 
SELDN2: CMPB #°C sCHARIN :I1S CHARACTER=C 
BNE f [NO, HAVE ILLEGAL KEY 
BIS “RG [SET CORE DUMP MODE 
SELDN3: SP3 





SEQ 0023 


a, 
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1280 
1281 


_ 


SESRGRERSSSSLRS RES ISS SR aR 


WWAWIWAAWWW 
ee ed ed ed ed eed eed 
WDBNAWUSWN—O 


SECSSSENS 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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002606 
002610 
002616 
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176510 
176500 


176462 


176444 


176424 


176414 


176376 


176356 


176346 


176330 


176276 


175452 


175436 


PA MR 
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WAIT FOR RECORD LENGTH SEQUENCES SELECTION 
WAITKY 


CMPB 2 eee 
BEQ SEL 
CMPB #61,CHARIN 
BNE SELR1 
BIS - #20,R4 
BR SELR3 
SELR1: CMPB #62, CHARIN 
BNE SELR2 
BIS #640,R4 
BR ELR3 
SELR2: CMPB #63, CHARIN 
BNE SELT3 
BIS #60,R4 
SELR3: SP3 
;WAIT FOR WRITE MODE SELECTION 
WAITKY 
CMPB #60, CHARIN 
BEQ SELW2 
CMPB #61,CHARIN 
BNE SELW1 
BIS #4 RS 
BR SELW2 
SELW1: CMPB #62, CHARIN 
BNE SELT3 
BIS #10,R4 
SELW2: SP3 
;WAIT FOR READ MODE SELECTION 
WAITKY 
CMPB #60, CHARIN 
BEQ SELRM2 
CMPB #61, CHARIN 
BNE SELRM1 
BIS #1,R4 
BR SELRM2 
SELRM1: CMPB #62, CHARIN 
JMP SELT3 
BIS #2 RS 


HAVE ALL PARAMETERS 
MOV wMS 


WAITKY 
#15, CHARIN 
- +6 

SELTS 

aTPS 

74 
#12,aTPB 
aTPsS 


74 
#40, aTPB 
R4,(0)+ 


IS_CHARACTER=0 
YES, RLS=MIN 
IS CHARACTER=1 


SET RLS=MAX 

IS CHARACTER=2 
SET RLS=MIN-MAX 
IS CHARACTER=3 
SET RLS=MAX-MIN 


SET WMO=NONS TOP 


SET WMO=START=STOP 


SET WMO=RANDOM 


SET RMO=NONS TOP 


SET RMO=START~-STOP 


SET RMO=RANDOM 


PRINT *OK'' 
WAIT FOR CARRIAGE RETURN 





SEQ 0024 
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| 
cz 
| CZTMCD.P11 03-JUN-80 15:26 SEQ 0025 
| 1332 003070 005267 176234 INC NUMTST :+1 TO TEST COUNT 
| 1333 003074 022767 000012 176226 CMP #10. ,NUMTST ‘EQUAL TO TEN YET 
1334 003102 001402 % BEQ SELOK1 : 
1335 003104 000167 177214 JMP SELT1 ‘NO, ACCEPT NEXT SET 
1336 003110 012702 012574 SELOK1: MOV WMSGS .R2 
1337 003114 104404 TOP 
| 
1339 sEXECUTE SELECTED TEST 
| 1340 003116 005067 175522 EXECUT: CLR MODES y INITIALIZE MODES 
1341 003122 CNTL 
| 1342 003124 012767 001340 176202 MOV #TSTTBL, TSTEX 
1343 003132 017767 176176 176172 EXEC: MOV @TSTEX, PARAM sGET TEST PARAMS 
| 1344 003140 016700 176166 EXEC]: MOV _— PARAM. RO 
| 1345 003144 042700 007777 BIC #7777 ..RO 
| 1346 003150 010067 176162 RO, TEST 
1347 003154 001465 BEQ TESTO 
1348 003156 022700 010000 CMP fe : 
1349 003162 001506 BEQ TEST1 
1350 003164 022700 020000 CMP ra : 
1351 003170 001527 BEQ TEST2 
1352 022700 030000 CMP #30000, 
1353 003176 001573 BEQ TEST3 
1354 022700 040000 CMP #40000,RO 
1355 003204 001402 BEQ +6 
1356 000167 001014 JMP TESTS 
1357 003212 000167 000466 UMP TESTS 
1358 ;RETURN HERE AFTER COMPLETION OF TEST 
1359 003216 012702 013723 BONE: MOV #MSG30,R2 
1360 003222 104404 
1361 003224 104436 CKSW 
1362 3226 032777 000001 175256 BIT #1, aSWR zIF BIT O=1 REPEAT ALL PATTERNS 
1363 003234 001413 BEQ DONE 1 
1364 016700 176070 . v 
1365 003242 042 1 BIC #170777,RO 
1366 022700 007000 Mp #7000,R0 :REACHED PAT 7 
1367 003252 001404 BEQ DONE 1 iY 
1368 003254 062767 001000 176050 ADD #1000, PARAM “NO, +1 TO PAT 
1369 003262 000726 BR EXEC1 TREPEAT 
1370 003264 005367 176040 DONE]: DEC 
1371 003270 001013 BNE 
1372 003272 013702 000042 MOV ar42,R2 
1373 003276 BNE ENDADR 
1374 3300 012702 013730 CHGD2: MOV #MSG31,R2 sPRINT END OF PASS 
1375 003304 104404 TOP 
1376 003306 000000 HALT ;FINISHED ALL TESTS 
1377 003310 004712 ENDADR: JSR PC, (2) 
1378 003312 000240 NOP 
1379 003314 000240 NOP 
1380 003316 000240 NOP 
1381 003320 062767 000002 176006 DOAGN: ADD #2, TSTEX 
1382 003326 000701 BR EXEC :DO NEXT TEST 
1384 ; TESTO 
1385 “WRITE ONE RECORD, CHANGE DRIVES. GO TO EOT 
1386 003330 052767 000002 175306 TESTO: BIS #2, MODES SEXIT WRITE EVERY RECORD, NO READ PASS 
1387 003336 104420 CLRALL [CLEAR ERROR COUNTERS AND REWIND 








i 


E 


RERISSSSSFFSS SSE 


Ne ee ee ee eee 
S55 
8 So 
NOU 


ad ond 
PP oF ar ar or 
oad an and ath ead 
fwn-o 


1415 
1416 
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000040 


001452 
177616 
000001 


000040 


001402 
177546 


000005 


000040 


000020 
005206 


000020 


175270 


175236 


175220 


175166 


175150 


175126 


175102 





TO: 
TOA: 


TOB: 


TESTI: 


TI: 
TIA: 


T1B: 


:TEST2 
WRITE A RECORD LENGTH SEQUENCE , 
sBACKSPACE, CHANGE DRIVES, 


BR 
JSR 
BR 


JMP 


03-JUN-80 


GENPAT 
RSF DRV 


MVCTRS 
#40 ,MODES 
T0B 
WRITIT 
SVCTRS 
CHGDRV 
TOA 
PC,ALLEOT 
TO 

DONE 


T 
PC.ALLEOT 
T1 

DONE 


TEST2: BIS -y 
LRALL 
GENPAT 
T2: RSF DRV 
T2A: MVCTRS 
BIT #40 ,MODES 
BNE 2B 
WRITIT 
SVCTRS 
T2B: CHGDRV 
BR T2A 
T2C: MVCTRS 
BIT #20,.MODES 
BNE T2D 
JSR PC, GOBKWD 
SVCTRS 
T2D: CHGDRV 
BR T2C 
T2E: CTRS 
BIT #20 .MODES 
BNE 
READIT 
T2F: SVCTRS 


a ee 
15:27 PAGE 26 


GENERATE PATTERN 


RESET DRIVE ge ig LOWEST NUMBER 


RESTORE 
21S _THIS 
SK 


DRIVE COUNTE 


DRIVE AT EOT? 
IP WRITE 


WRI 
SAVE DRIVE COUNTERS 


zANY MORE DRIVES SELECTED? 


TARE ALL 


YES, EXI 


WRITE AFTER 


RESTORE 


:IS THIS 
IP 


4 


DRIVES AT EOT? 
T 


; TESTI 

WRITE RECORD LENGTH SEQUENCE, GO TO NEXT DRIVE, CONTINUE TO a! ON ALL DRIVES. 
BIS #1 ,MODES zEXIT RLS, NO READ PASS 

CLEAR “a COUNTERS AND REWIND 

GENERATE PATTERN 

RESET DRIVE og AL LOWEST NUMBER 


DRIVE COUNTER 
DRIVE AT EOT? 
WRITE 


WRITE 
: SAVE DRIVE COUNTERS 


Y MORE DRIVE SELECTED? 


VES 
TARE ALL 


:NO 
zYES EXIT 


DRIVES AT EOT? 


CHANGE DRIVES 


GENERA 


iS THIS 
7 YES, SKIP 
TE 


+ SAVE oRI 


COUNTERS 
: ANYMORE DRIVERS SELECTED? 
REST 


:IS THIS 
:YES, SKI 
ZBACKSPA 


- CHANGE DRIVES. CONTINUE TO oy! ON ALL DRIVES 
sEXIT WRITE AFTER RLS, DO READ PASS 
; CLEAR © a COUNTERS AND REWIND 


TE PATTERN 
2 SET DRIVE SELECTION TO LOWEST NUMBER 
STORE 


DRIVE COUNTERS 
ys # AT EOT? 


VE 


ORE DRIVE COUNTERS 


READ AT E01? 
P BACKSPACE 


cE 
SAVE DRIVE C 


COUNTERS 
14 MORE DRIVES SELECTED? 


ZYE 

> RESTORE 
71S _THIS 
YES, SKIP 


; : SAVE DRI 


DRIVE Pa aoe 
READ AT EOT 
READ 


VE COUNTERS 


SEQ 0026 
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CZTMCD.P11 03-J 
OO eee9 
445 Soeces 
446 0035 
447 903860 
448 003562 





O20 
SEFEES 
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001264 
177430 


000006 


000040 


000020 


005070 


000020 


000007 
000005 


174652 


000010 





175050 


175032 


175010 


174764 


174732 
175412 


174712 
174704 


174652 


174654 
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CHGDRV 
T2E 
PC,ALLEOT 
Te 

DONE 


SEQ 0027 
= DRIVES SELECTED? 
“ARE ALL DRIVES AT EOT? 
YES EXIT 


;WRITE ONE RECORD, CHANGE DRIVES, iP unite’ CHANGE DRIVES, READ, A DRIVES 
#6 ,MODES sEXIT 


TESTS: 


T3: 


T3A: 


138: 


T3C: 


T3D: 


T3E: 


T3F: 


s TESTS 


BIS 


T 
PC,ALLEOT 
T3 

DONE 


T WRITE EVERY RECORD, DO READ P 
CL AR ERROR COUNTERS AND REWIND 
SGENERATE PATTERN 
:SET DRIVE SELECTION TO LOWEST NUMBER 
SRESTORE DRIVE COUNTERS 
SIS THIS DRIVE AT EOT? 
[YES, SKIP WRITE 
WRITE 


SAVE DRIVE COUNTERS 
ZANY MORE DRIVES SELECTED 


sRESTORE DRIVE ye ge 
4 THIS DRIVE AT EOT 

SKIP BACKSPACE 
‘BACKSPA cE 
:SAVE DRIVE COUNTERS 
ANY MORE DRIVES SELECTED? 


G0 

RESTORE DRIVE COUNTERS 
31S THIS DRIVE AT EOT? 
:YES, SKIP READ 


RE 
SAVE DRIVE COUNTERS 
sANY MORE DRIVES SELECTED 


YES 
SARE ALL DRIVES AT EOT? 
SYES, EXIT 


WRITE RECORD, CHANGE DRIVES, “eg As of . anes LENGTH SEQUENCE 


(ores Rae ae CHANGE DRIVES, 
TESTS #6 Ss 


T4: 


T4A: 
T4B: 


T4C: 


BIS 
BIT 


GENPAT 
ei* -@TSTEX 


#7 MODES 
MODES 


Ld 


RSF DRV 


MVCTRS 
RECORD ,WRRECR 
SVCTRS 


CHGDRV 


148 
#10, MODES 
RSF DRV 


REPEAT 


EXIT WRITE EVERY RECORD, DO READ PASS 
;GENERATE PATTERN 


EXIT WRITE AFTER RLS, DO READ PASS 
LEAR ERROR COUNTERS AND REWIND 

SET DRIVE SELECTION TO LOWEST NUMBER 

RESTORE DRIVE COUNTERS 

2 SAVE RECORD 

SAVE DRIVE COUNTERS 

; ANYMORE DRIVES SELCTED? 


7 YES 
: INDICATE RLS END 
:SET DRIVE SELECTION TO LOWEST NUMBER 
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CZTMCDO TM11 DATA RELIAS, MACY11 30A(1052) 
CZTMCD.P11 — 03-JUN-80 15:26 SEQ 0028 
| 1500 003 10441 T4D: MVCTRS SRESTORE DRIVE COUNTERS 

1501 003774 032767 000040 174642 BIT #40 MODES iS. DRIVE AT EOT 
1308 004002 001010 BNE SKIP_WRITE 

1503 004004 016767 174616 174550 MOV = WRRECR, SVRECR SAVE. START OF RLS 

1504 004012 10440 WRITIT 

1505 006014 016767 174542 174604 MOV SVRECR ,WRRECR RESTORE START OF RLS 

1506 004022 104406 SVCTRS 3 SAVE DRIVE COUNTERS 

1507 004024 104422 T4E: HGDRV ANYMORE DRIVES SELECTED? 

1508 004026 000761 BR T4D 

1509 004030 032767 000010 174606 BIT #10,MODES {ARE WE AT END OF RLS 

1510 004036 00100 BNE T4G YES 

1511 10441 T4F : MVCTRS {RESTORE DRIVE COUNTERS 

1512 004042 032767 000040 174574 BIT #40 MODES GARE WE AT EOT? 

1513 001747 BEQ T4C 

1514 004052 104422 CHGDRV ANYMORE DRIVES SELECTED? 

1515 771 BR T4F 3 YES 

1317 

1518 004056 104410 146: RSFDRV SET DRIVE SELECTION TO LOWEST NUMBER 

1519 104414 T4H: MVCTRS ZRESTORE DRIVE COUNTERS 

1520 032767 000020 174554 BIT #20 ,MODES :1$ THIS DRIVE AT EOT? 

1521 004070 001002 BNE J sYES, SKIP BACKSPACE 

1522 004767 004634 JSR PC, GOBKWD ;BACKSPACE 

1523 004076 1044 T4J: SVCTRS SAVE DRIVE COUNTERS 

1524 004100 104422 CHGDRV ZANY MORE DRIVES SELECTED? 

1525 004102 000766 BR T4H 3 YES 
| 1526 004104 104410 T4K: RSF DRV SET DRIVE SELECTION TO LOWEST NUMBER 

1527 004106 10441 T4L: MVCTRS RESTORE DRIVE COUNTERS 

1528 004110 032767 000020 174526 BIT #20 ,MODES 31S THIS READ AT EOT? 

1529 004116 001025 BNE ZYES, SKIP READ 

1530 004120 026767 174504 174476 CMP ——-LASRCR, RECORD =; HAVE WE READ LAST RECORD WRITTEN? 

1531 006126 001421 BEQ T4N :YES 

1532 006130 016767 174474 174424 MOV -—-_LASRCR, SVRECR = SAVE_LAST RECORD 

1533 004136 032767 000003 175166 BIT #3 ,PARAM 31S READ MODE NONSTOP? 

1534 004144 001405 BEQ T4M :YES 

1535 004146 016767 174452 174454 MOV ——- RECORD ,LASRCR 

1536 004154 005267 174450 INC LASRCR :+1 TO LAST RECORD WRITTEN 

1537 004160 104424 T4M: READIT ; READ 

1538 004162 016767 174374 174440 MOV SVRECR,LASRCR  ;RESTORE LAST RECORD WRITTEN 

1539 006170 104406 SVCTRS SAVE DRIVE COUNTERS 

1540 006172 104422 TON: CHGDRV ZANYMORE DRIVES SELECTED? 

1541 004174 000744 BR T4L 

1542 006176 104414 T4P: MVCTRS TRESTORE DRIVE COUNTERS 

1543 004200 026767 174424 174416 CMP ——sLASRCR,RECORD = ARE WE AT END OF RLS? 

1544 004206 001336 BNE 14K ;NO 

1545 004210 104422 CHGDRV ZANYMORE DRIVES SELECTED? 

1546 004212 000771 BR T4P ; 

1547 004214 004767 000624 JSR PC ,ALLEOT ARE ALL DRIVES AT EOT? 

1548 004220 000650 BR T4A ; 

1349 004222 000167 176770 JMP 7 YES,EXIT 

1551 TESTS 

1552 ZREAD ONLY 

1553 RANDOM PATTERN INVALID EXCEPT FOR SPECIFIC CASES 

1554 004226 052767 000002 174410 TESTS: BIS #2 ,MODES 

1555 004234 104420 CLRALL ;CLEAR ERROR COUNTERS AND REWIND 
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GRO A BRAS ipod saga ; dD 3 
-CZTMCDO TM11 DATA RELLAB MACY11 30A(1052) 03-JUN-80 15:27 PAGE 29 
/CZTMCD.P11 © 03-JUN-80 15:2 SEQ 0029 
| 
| 1556 004236 GENPAT :GENERATE PATTERN 
_ 1557 006240 012767 177777 000240 15: MOV #-1, TSFLAG *ENABLE EXIT FROM WRITE ROUTINE 
| 1558 004246 10440 WRITIT s ENTER WRITE ONLY To INITIALIZE RECORD SEQUENCE 
| 1559 004250 032767 000010 174366 BIT #10,MODES ZARE WE A T END OF RLS? 
| 1560 004256 901402 BEQ T5A YES 
1561 004260 00476 901 404 JSR PC, TESINC TSEE IF RECORD LENGTH SHOULD BE CHANGED 
1369 004264 016767 174334 000216 TSA: MOV RECORD, T5INC 
1 004272 005067 174326 CLR RECORD 
1564 004276 052767 000010 174340 1T5B: BIS #10,MODES yINDICATE AT START OF RLS 
1565 RSF DRV :SET DRIVE SELECTION TO LOWEST DRIVE NUMBER 
1566 004306 104414 TSC: MVCTRS SRESTORE DRIVE COUNTERS 
1567 004310 032767 000020 174326 BIT #20,MODES :IS THIS DRIVE AT EOT 
1568 004316 001007 BNE T5D YES 
1569 004320 016767 174300 174302 MOV RECORD LASRCR 
1570 004326 066767 000156 174274 ADD TSINC SRCR : CURRENT RECORD + SEQUENCE LENGTH 
1571 004334 104406 te SAVE DRIVE COUNTERS 
1572 004336 104422 TSD: CHEDRV {ANYMORE DRIVES? 
1573 004340 000762 BR T5C : 
1574 004342 104410 RSF DRV :SET DRIVE SELECTION TO LOWEST NUMBER 
1575 004344 104414 TSE: MVCTRS ZRESTORE DRIVE COUNTERS 
1576 004346 032767 000020 174270 BIT #20,MODES 71S THIS DRIVE AT EOT? 
1577 004354 001021 BNE T5G : YES 
1578 004356 016767 174246 174176 MOV LASRCR,SVRECR SAVE END OF RLS RECORDS 
1579 004364 032767 000003 174740 BIT #3, PARAM 71S READ MODE NONSTOP 
1580 004372 001405 BEQ T5F [YES GO TO END RLS 
1581 004374 016767 174224 174226 MOV RECORD,LASRCR :NEXT TO BE READ 
1582 004402 005267 174222 INC LASRCR :+1 EXIT READ AFTER ONE RECORD 
1583 004406 104424 TSF: READIT =R 
1584 004410 016767 174146 174212 MOV SVRECR,LASRCR :RESTORE END RECORD 
1585 004416 104406 SVCTRS ZSAVE DRIVE COUNTERS 
1586 004420 104422 15G: CHGDRV ZANY MORE DRIVES? 
1587 004422 000750 BR T5E YES 
1588 004424 004767 000414 JSR PC ALLEOT tALL AT EOT? 
1589 004430 000402 BR TSH = NO 
1590 004432 000167 176560 JMP DONE ZYES EXIT 
1591 004436 104410 TSH: RSFDRV :SET DRIVE SELECTION TO LOWEST NUMBER 
1592 004440 104414 T5J: MVCTRS SRESTORE DRIVE COUNTERS 
1593 004442 026767 174156 174160 CMP RECORD,LASRCR :ARE WE AT END OF RLS? 
1594 004450 001003 BNE K [NO 
1595 004452 042767 000010 174164 BIC #10,MODES :YES, 
1596 004460 104422 TSK: CHGDRV TANYMORE DRIVES SELECTED? 
1597 004462 000766 BR T5J : 
1598 004464 032767 000010 174152 BIT #10,.MODES tAT END OF RLS? 
1599 004472 001324 BNE T ; 
1600 004474 004767 000344 JSR PC ALLEOT TALL DRIVES AT EOT? 
1601 004500 000657 BR 15 NO 
1602 004502 000167 176510 JMP DONE ZYES, EXIT 
1603 004506 000000 TSFLAG: 0 
1604 004510 000000 TSINC: 0 
1606 ;SAVE DRIVE RECORD AND ERROR COUNTERS 
1607 004512 004767 000030 SVCTR: JSR PC, CTRDEX 
1608 004516 012021 SVC1: MOV (05+, (1) + 
1609 004520 022700 000646 CMP #DRVADR RO 
1610 006524 901374 BNE SVC1 
1611 004526 000207 RTS PC 
} 





| 





| CZTMCD.P11 
1612 
1613 004530 004767 
1614 004534 012120 
1615 004536 022700 
1616 004542 001374 
ela 004544 207 
1619 004546 012700 
1620 004552 012701 
1621 004556 066701 
1622 004562 066701 
1623 004566 011101 
lost 004570 00020 
1626 004572 104410 
1627 004574 004767 
1628 004600 004767 
1629 004604 104406 
1630 004606 104422 
1631 004610 000771 
1632 004612 052767 
1633 004620 00506 
ios 004624 000207 
1636 004626 005067 
1637 004632 012767 
1638 004640 036767 
1639 004646 001 
1640 004650 005267 
1641 004654 000241 
1642 004656 00606 
1643 004662 000766 
1644 004664 016767 
1645 004672 367 
1646 004676 105767 
1647 004702 10000 
1648 004704 052767 
1649 004712 032767 
1650 004720 001403 
1651 004722 052767 
1652 004730 032767 
1653 004736 100 
1654 004740 052767 
1655 004746 
1656 
1657 
1658 
1659 004750 005267 
1660 004754 000241 
1661 004756 7 
1662 004762 001004 
16635 004764 104410 
1664 004766 062716 
1665 004772 000207 
1666 004774 036767 
1667 005002 001762 


—CZTMCDO TM11 DATA RELIAB 
03-JUN-80 15:26 


000012 
000646 


000602 
000646 


174006 
174002 


000206 
000352 


000010 
177662 
173736 
000200 
173714 
173714 
173704 
173700 
173666 
174430 
040000 
000100 
020000 
000400 
004000 


173614 
173604 


000002 
173566 


174024 


173726 
173720 


173672 


173652 
174412 


173634 
174374 
173616 


173556 


MACY11 30A(1052) 
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SEQ 0030 


3 DRIVE sees BACK INTO PROGRAM 
MVCTR CTRDEX 


zAT END OF RLS 


START WITH DRIVE 0 
BIT FOR DRIVE 

i DRIVE SELECTED? 
:NO + 1 TO DRIVE 
ROTATE DRIVE BIT 
REPEAT 


:SET PROPER DENSITY BITS 


;TEST PARITY SELECTED 
7; 0DD 
sEVEN 


:+1 TO DRIVE NUMBER 


s;MOVE MASK BIT OVER 1 PLACE 
7;BRANCH IF MORE DRIVES SELECTED 
ne DRIVE SELECT TO LOWEST 

+ 2 TO SKIP OVER FIRST EXIT 


JSR 
MVi: | MOV Ss. (0)+ 
CMP SDRVADR. RO 
BNE MV1 
RTS PC 
;SET UP POINTERS FOR MOVE AND SAVE COUNTERS 
CTRDEX: MOV MWRCHEK , RO 
MOV #DRVADR.R1 
ADD CDRIVE,R1 
ADD CDRIVE.R1 
V aR1,R1 
RTS PC 
;CLEAR ALL DRIVE COUNTERS 
CLRAL : RSFD 
CLR1: JSR Pe REWIND 
JSR PC, CLRTBL 
SVCTRS 
CHGDRV 
BR CLR1 
BIS #10,MODES 
CLR FLAG 
. RTS PC 
;RESET DRIVE SELECTION TO LOWEST NUMBER 
RSFDR: CLR V 
MOV #200, CDRVBT 
RSF1: BIT MSBITS, CDRVBT 
BNE RSF2 
INC CDRIVE 
CLC 
ROR CDRVBT 
BR RSF 1 
RSF2: MOV CDRIVE , COMAND 
SWAB - COMAND 
TSTB PARAM 
BPL .+10 
BIS #40000, COMAND 
BIT #100, PARAM 
BEQ .+10 
BIS #20000 , COMAND 
BIT #400, PARAM 
BNE +10 
BIS #4000, COMAND 
RTS 
: SELECT NEXT DRIVE IN SEQUENCE 
+1 WORD TO EXIT ADDRESS IF LAST DRIVE TESTED 
HGDR: INC CDRIVE 
CLC 
ROR CDRVBT 
BNE CHG1 
RSFDRV 
ADD #2,aSP 
RTS PC 
CHG1: BIT CDRVBT.MSBITS 
BEQ CHGDR 


— SS 
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173470 


173544 
173452 


000016 
000140 


000060 


MACY11 
173460 
173444 


173566 


173414 
173536 


173506 


173444 


173300 


000014 
173312 


173250 
173246 
177760 
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SEQ 0031 
BR RSF 2 
; REWIND ws he TO A) 
REWIND: TSTB amTc 
-4 WAIT FOR CONTROL UNIT 
MOV COMAND , aMTC SELECT DRIVE 
ROR amTs 
BCC 74 ;WAIT FOR TU READY 
BIS #16,aMTC REWIND 


JSR PC,GOWAIT 


RTS PC EXIT 
;ARE ALL DRIVES AT END OF TAPE 
ALLEOT: RSF DRV 
ALL1 MVCTRS 
BIT #60 ,MODES z;AT EOT? 
BEQ ALLEOS NO 
CHGDRV ;DONE ALL DRIVES? 
BR ALL1 NO 
BR ALL3 
ALLEOS: CKSW 
BIT #400, aSWR : TEST SWITCH 8 TO EXIT AT END OF SEQUENCE 
BEQ AL TO EOT 
BIT #10,MODES :AT “END OF SEQUEN cE 
BEQ ALL . EXIT, DON'T DUMP ERROR COUNTERS 
;DUMP ERROR COUNTERS ON ALL privis- 
CTRDMP: RSFDRV 
MVCTRS 
TST T5FLAG 
BNE CTRD1 ;DUMP READ ONLY 
JSR PC,ENDT1 
CKSW 
BIT #4 ,MODES ;READ PASS SELECTED? 
BEQ CDMEND ;NO 
CTRD1: JSR PC,RNDTP1 
CDMEND: CHGDRV ;DONE ALL DRIVES 
BR CTRDMP+2 ; 
ALL3: ADD #2,(6) ; INCREMENT RETURN POINT 
ALL2: RTS PC 


CLEAR READ AND WRITE TABLES 
CLRTBL: MOV #WRCHEK ,RO 
CLRT1: CLR (0)+ 

CMP 

BNE CL 

BIC g70 MODES 


RTS 
; INTERRUPT ENABLE, GO, on FOR INTERRUPT 
GOWAIT: MOV 


#200. :SET PRIORITY LEVEL 4 
S SUAIT *#1=WAIT INSTR 
MOV a1 OnTV [SET INTERRUPT RETURN 
BIS #101, amMTC S INTERRUPT ENABLE, GO 
SWAIT: WAIT [WAIT FOR INTERRUPT 
mov #340 ,aCC :RESTORE PRIORITY LEVEL 7 


I 
GW: MOV #240, $WAIT ;NOP IT JUST IN CASE 11/34 
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173344 
173240 
177774 
000020 
173216 
000004 
173226 
000040 


173206 
173172 
173102 
173072 
173224 
173062 
173104 
000004 
177540 


173032 
173026 


173112 
173104 
000602 
sae 
173054 
000010 
000002 


000010 


i eae: G 3 
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173264 
173300 
174026 
173240 
173774 


173254 
173106 


173066 
173056 
173044 


173130 


173620 


173110 
173100 


173066 


173542 


RTI 
:WRITE RECORD SECTION 
WRITI: TST — RECORD 
BNE  _ NOINCR 
MOV MAXLEN, STRLEN 
MOV #4. ,BLKINC 
BIT #20 PARAM 
BNE = W 
MOV . MINLEN, STRLEN 
MOV . -BLKINC 
Wi: MOV  — STRLEN,WRTLEN 
BIT #40, PARAM 
BNE  _NOINCR 
CLR —- BLKINC 
NOINCR: MOV —- RECORD ,WRRECR 
TST —‘TSFLAG 
BEQ #4 
RTS = PC 
CLR —- WRPASS 
STRTOP: MOV COMAND , aMTC 
TSTB = @MTC 
BPL 4 
ROR MTS 
BCC .=4 
NONSTP: MOV - WRTLEN,, aBC 
NEG aac 
MOV WBUF ,@CA 
BIS #4, aMTC 
JSR _ PC GOWAIT 
RETURN HERE AFTER’ INTERRUPT 
MOV = @MTS, STATO 
TST = aMTC 
BMI ERROR 
TST  WRPASS 
BEQ =‘ TSTSTP 
MOV ——- WRPASS, 
ASL 0 
ADD § MWRCHEK RO 
INC — aRO 
CLR WRPASS 
TSTSTP: BIT #14, PARAM 
BNE ST 
TST  WRPASS 
BNE NONSTP 
JSR —- PC, TESINC 
BIT #1 MODES 
BEQ sw 
BIT #10,MODES 
BEQ _NONSTP 
RTS = PL 
w10: BIT — #2,MODES 
BEQ NONSTP 
RTS = PC 
STOPOP: BIT #10, PARAM 
BEQ wi 


RETURN FROM INTERRUPT 


21S THIS THE FIRST RECORD 


_ SEQ 0032 


7NO, SKIP SET UP OF RECORD LENGTH AND BLOCK INCREMENT 


EXIT WRITE ROUTINE IF TEST 5 


SELECT UNIT 


WAIT FOR CU READY 
sWAIT FOR TU READY 


SET BYTE COUNT 

:SET_ CURRENT ADDRESS 

WRITE 

; INTERRUPT ENABLE, GO, WAIT FOR DONE 


SAVE STATUS 


:HAVE ERROR FLAG, CHECK FOR EOT 
:WAS THIS A RECOVERY PASS 


7 YES 


:+1 TO APPROPRIATE RECOVERY PASS COUNTER 
21S WRITE MODE NONSTOP? 


’ 


:YES 


; CHANGE RECORD LENGTH 
sEXIT AFTER RLS? 


7NO 
7YES, ARE WE AT END OF RLS? 


‘YES 
TEXIT EVERY RECORD? 


. 


i RECORD LENGTH CHANGE? 


7 YES 
58 WRITE MODE RANDOM? 


oA SH Se ea YS H 3 
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| CZTMCD.P11 03-JUN-80 15:26 SEQ 0033 
1780 ; RANDOM STALL DELAY 

1781 005572 004767 001450 RANSTP: JSR EN 

1782 005576 052767 17 7400 001612 BIS #177400, RANDOM 

1783 005606 012704 177470 RANI: MOV #7200. .Ré ;DELAY 1 MILLISECOND 

1784 005610 005 INC 

1785 005612 001376 BNE _* 

1786 005614 90267 001576 INC RANDOM 

1787 005620 001371 BNE RAN1 

1788 005622 005767 172746 wil: ‘TST WRPASS 

1789 005626 001257 BNE STRTOP 

1790 005630 004767 000034 JSR PC, TESINC 

1791 032767 000001 173002 BIT #1 MODES ZEXIT AFTER RLS? 

1792 005642 001405 BEQ wie : 

1793 005644 032767 000010 172772 BIT #10,MODES ZYES, ARE WE AT END OF RLS? 

1794 005652 001645 BEQ STRTOP 7NO 

1795 005654 000207 RTS PC YES 

1796 005656 032767 000002 172760 wi2: BIT #2,MODES TEXIT EVERY RECORD? 

1797 005664 001640 BEQ STRTOP zNO 

1798 005666 000207 RTS PC YES 

1799 ;SEE IF RECORD LENGTH SHOULD BE CHANGED 

1800 005670 005267 172730 TESINC: INC RECORD 3+1 TO RECORD COUNT 

1801 005674 042767 000010 172742 BIC #10,MODES ZNOT END OF RLS UNLESS SET BELOW 
1802 005702 005767 172670 TST BLKINC 

1803 005706 001416 BEQ TSINC2 

1804 005710 066767 172662 172722 ADD BLKINC ,WRTLEN 

1805 005716 026767 172716 172604 CMP WRTLEN,MINLEN ao ty i TOO SHORT? 

1806 005724 002404 BLT RESETL 

1807 005726 026767 172706 172572 CMP WRTLEN,MAXLEN :RECORD CENGTH TOO LONG? 

1808 005734 003403 BLE TSINC2 

1809 005736 016767 172612 172674 RESETL: MOV STRLEN,WRTLEN YES, RESET 

1810 005744 105767 172654 TSINC2: TSTB —— RECORD 

1811 005750 001003 BNE TSINC3 NO 

1812 005752 052767 000010 172664 BIS #10,MODES : INDICATE AT END OF RLS 

1813 005760 000207 TSINC3: RTS PC 

1815 

1816 ;HAVE AN ERROR FLAG DURING WRITE OPERATION 

1817 7 IF ERROR IS CAUSED BY - OF TAPE FLAG DUMP WRITE ERROR COUNTERS 
1818 [FOR ALL OTHER ERRORS: PRINT COMMAND AND STATUS REGISTERS AND RECORD NUMBER 
1819 lif — PASS IS Wi75600, 81 TRY TO RECOVER BY WRITING WITH XIRG. 
1820 005762 032767 175600 172610 ERROR: BIT STATRD ;AT EOT? 

1821 005770 001511 BEQ NDTAP YES 

1822 005772 005767 172576 TST ENPASS 

1823 005776 001002 BNE ERR1 sFIRST ERROR? 

1824 006000 005267 172576 INC WRCHEK sYES, + 1 TO WRITE ERROR 

1825 006004 032777 020000 172500 ERRI: BIT #20000 , aSwWR * TYPE ALL ERRORS? 

1826 006012 001011 BNE TESREC =NO 

1827 006014 012702 012626 MOV #4SG7,R2 

1828 (06020 104404 TOP :PRINT ERROR 

1829 006022 016767 172612 172526 MOV WRTLEN, LENGTH 

1830 006030 004767 003006 JSR PC,PRTS ;PRINT STATUS, COMMAND, RECORD, LENGTH 
1831 006034 104436 CKSW 

1832 006036 032777 000100 172446 TESREC: BIT #100, aSWR :RECOVER STATISTICALLY SELECTED? 
1833 006044 001410 BEQ TESRC1 

1834 006046 005267 172522 INC WRPASS :+1 TO WRITE RECOVER 

1835 006052 022767 000010 172514 CMP #8. ,WRPASS “HAVE WE TRIED TO WRITE RECOVER 8 TIMES? 


fo 


sepa ve 2 
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CZTMCD.P11 03-JUN-80 15:26 SEQ 0034 
| 1836 006060 001020 BNE STRECi :NO 
1837 006062 005267 172534 INC PERMBS ‘YES, +1 TO PERMANENT BADSPOT? 
| 1838 006066 032767 000004 172550 TESRC1: BIT #4 MODES 71S READ PASS SELECTED? 
| 1839 006074 0014 BEQ +6 NO 
| 1840 006076 004767 002412 JSR PC, XRGREC 
| 1841 006102 903067 172466 CLR WRPASS 
184¢ 006106 032767 002000 172464 BIT #2000, STATRD 
| 1843 006114 001037 BNE ENDTAP 
1844 006116 000167 177500 JMP W117 
| 1845 006122 004767 002052 STREC1: JSR PC,BACK1 
| 1846 0061 004767 002046 JSR PC BACK ;BACKSPACE 2 RECORDS 
1847 006132 032777 000040 172340 BIT #40.aMTS 
1848 006140 001402 BEQ +6 
| 1849 006142 000167 177220 JMP STRTOP 
1850 006146 012777 177777 172330 MOV #~1,aBC 
1851 006154 016777 172404 172320 MOV COMAND , aMTC 
1852 006162 052777 000010 172312 BIS #10, amTC 
1853 006170 004767 177006 JSR PC, GOWAIT s SPACE FORWARD 1 RECORD 
| 1854 006174 042777 000016 172300 BIC #16, aMTC 
1855 006202 052777 000004 172272 BIS #4, aMTC CHANGE FROM SPACE TO WRITE 
1856 006210 000167 177152 J RTOP 
1857 :DRIVE IS AT EOT 
1858 006214 005267 172404 TAP: IN RECORD 
1859 006220 052767 000040 172416 BIS #40,MODES ; INDICATE DRIVE AT EOT 
1860 006226 012702 013555 ENDT1: MOV WMSG24 ,R2 
1861 006232 104404 TOP 
1862 006234 012702 012654 MOV #MSGBR2 
1863 006240 104404 TOP 
1864 ;DUMP WRITE ERRORS 
anes 006242 004767 002640 WRTDMP: JSR PC,PRTD sPRINT DRIVE, PATTERN, PARITY, DENSITY 
1867 006246 016767 173060 003162 MOV PARAM, CHAR 
1868 006254 042767 177763 003154 BIC #177763, CHAR 
1869 006262 012702 013310 MOV #SG14,R2 
1870 022767 000004 003142 CMP #4, CHAR 
1871 006274 001 BNE +6 
1872 006276 012702 013270 MOV W#™SG12,R2 
1873 006302 022767 900010 003126 CMP #10, CHAR 
1874 006310 00100 BNE .+6 
1875 006312 012702 013300 MOV #SG13,R2 
1876 006316 104404 TOP ZPRINT WRITE MODE 
1877 006320 016702 172300 MOV RECORD ,R2 
1878 006324 104426 DECPRT ZPRINT RECORD NUMBER 
1879 016767 173000 003102 MOV PARAM, CHAR 
1880 042767 177717 003074 BIC #177717, CHAR 
1881 006342 012702 013336 MOV #SG17,R2 
1882 006346 022767 000020 003062 CMP #20, CHAR 
1883 006354 001002 BNE ’ 
1884 006356 012702 013345 MOV #9SG18,R2 
1885 006362 022767 000040 003046 CMP #40, CHAR 
1886 006370 001002 BNE +6 
1887 006372 012702 013320 MOV #SG15,R2 
1888 006376 022767 000060 003032 CMP #60, CHAR 
1889 006404 001002 BNE +6 
| 1890 006406 012702 013327 MOV #SG16,R2 
| 1891 006412 104404 TOP :PRINT RECORD LENGTH SEQUENCE 
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012702 
104404 
016702 
104426 
104436 
000207 


016702 
016703 
3 
042703 


011307 
14 


013354 
172154 


000060 004753 
004747 


013376 


000622 
172122 


013420 
172102 


MOV 


WRTD1: 


WRTD2: 


RTS 


en 
WRCHEK ,R2 


(0) + 

RO ,AWRCHEK+20 
WRTD1 

PERMBS 

1$ 

PC 


#MSG20A,R2 
TOP 
PERMBS ,R2 
DECPRT 


CKSW 
PC 


GENERATE DATA PETTERN 
ot Ayah HAVE BITS 15,14,7,6 SET IN CASE CORE DUMP SELECTED 


MO 
PATPNT: pares 


oR 
PARAM ,R3 
R3 
R3 
#177741 ,R3 
#PATPNT ,R3 
aRr3 


NALS RAL IS yo J 3 
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SEQ 0035 


;PRINT ‘WRITE ERRORS="' 


PRINT STATISTICAL RECOVERY 


sRECOVERED AT xX 
JUST INCREMENT ING 


SKIP PRINT IF = 0 


PRINT “PERMANENT BADSPOT"* 


j 
am i 


ear——————— — —— _ a 


; K 3 
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| TMCD.P11  03-JUN-80 15:26 | SEQ 0036 
| 1948 006612 007070 PATO? 
1949 :PATTERN 0 
1950 “HIGH FREQUENCY OUTSIDE SKEW 
| 1951 006614 012703 140701 PATEO: MOV. #140701.R3 3401 
| 1952 006620 000533 BR PFIL1 
1998 HALF FREQUENCY OUTSIDE SKEW 
| 1955 006622 012703 140301 PATOO: MOV —-#140301.R3 7 
| 1956 006626 000530 BR PFIL | 
1957 :PATTERN 1 
| 1958 “SLIDING 0 
1959 006630 012703 006636 PATE1: MOV —s#PE1.R3 
1960 006634 000532 BR PFILS 
1961 006636 167737 PE1: 167737 £27637 
1962 175767 175767 + 35467 
1963 006642 177375 177375 £37075 
1964 SLIDING 1 
1965 012703 006652 PATO1: MOV —s#PO1_R3 
1966 000524 BR PFILS 
1967 006652 15034 P01: «150340 £10040 
1968 006654 142310 142310 £2010 
1969 006656 140702 140702 2402 
1971 :PATTERN 2 
1972 “HIGH FREQUENCY EVERY OTHER TRACK 
1973 006660 012703 152725 PATE2: MOV. #152725.R3 £12425 
197% 006664 000511 BR PFILI 
1976 HIGH FREQUENCY EVERY OTHER TRACK 
1977 006666 012703 165352 PATO2: #165352,R3 325052 
1978 006672 000506 PFIL1 
1979 SPATTERN'§ 
1980 “HALF FREQUENCY OUTSIDE TRACK, HIGH FREQUENCY INSIDE TRACKS 
1981 006674 012703 177377 PATES: “MOV #177377,R5 37077 
1982 006700 000503 BR PFIL1 
1983 HIGH FREQUENCY OUTSIDE TRACK, HALF FREQUENCY INSIDE TRACKS 
1984 006702 012703 177701 PATO3: MOV _-#177701.R3 37401 
1985 006706 000500 BR PFIL1 - 
1986 SPATTERN 4 
1987 LINCREMENTING PATTERN (NO ALL 0"S) 
1988 006710 012703 000301 PATES: MOV #301.R3 
1989 006714 110322 MOVB = R3, (2) + 
1990 006716 026702 171612 CMP sa RBUF .R2 
1991 006722 001001 BNE “+4 
1992 006724 0005 BR PATEND 
1993 006726 105203 INCB ORS 
1994 006730 001767 BEO —s«~PATE 
1995 006732 000770 BR PATEG+4 
1996 ; INCREMENTING PATTERN (INCLUDING ALL 0°S) 
1997 006734 005003 PATO4: CLR R3 
1998 006736 110322 MOVB RB, (2)+ 
1999 006740 026702 171570 CMP ss RBUF .R2 
2000 006744 001001 BNE "+4 
3001 006746 000517 BR PATEND 
5002 006750 005203 INC — RB 
3 006752 000771 BR PATO4+2 
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000344 


:PATTERN 5 
TAREE O'S EACH TRACK EVERY 6TH WORD 
PATES: MOV #PES R3 
BR PFIL9 
PES: 157437 317437 
167737 £27437 
167757 127657 
173767 + 33467 
171767 +31467 
171773 231473 
176775 *37075 
177376 37076 
: THREE 1°S EACH TRACK EVERY 6TH WORD 
PATOS: MOV R3 
BR PFIL tt 
POS: 160340 320040 
150340 110040 
150320 710020 
144310 74010 
142310 72010 
142304 cy. 
141302 +1002 
140702 +402 
140701 7401 
zPATTERN 6 
TALL 1'S ALL TRACKS 
PAT6: MOV #-1,R 
PFIL1 
:PATTERN 7 
(NONE ALL 0'S) 
PATE7: JSR PC EN 
#77, 
BEQ PATE7 
MOVB RANDOM, (2) + 
RBUF 
BNE PATE? 
BR PATEND 
;RANDOM (WITH ALL O'S) 
PATO7: JSR PC, N 
MOV RANDOM, (2) + 
CMP RBUF RO 
BNE PATO? 


BR PATEND 
sFILL WRITE BUFFER WITH CONSTANT PATTERN 
PFIL1: ed R3,(2)+ 


RBUF 
BNE PFILi 
BR PATEND 
sFILL WRITE BUFFER WITH 3 WORD PATTERN 
PFIL3: MOV R3,R4 


ADD HORS 

PFIL3A: MOV (35+, (2)+ 
CMP RBUF ,R2 
BNE +4 


SEQ 0037 
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BR PATEND 
CMP R3,R4 
BNE +6 
SUB #6 ,R3 
BR PFIL3A 
sFILL WRITE BUFFER WITH 9 WORD PATTERN 
PFILS: MOV R3,RG 
ADD #6 Ri 
PFIL9A: MOV (3)4, (2+ 
CMP RBUF .R2 
BNE +4 
BR PATEND 
CMP R3,R4 
BNE +6 
SUB #22. R3 


BR IL9A 
3 F INISHED PATTERN. GENERA 


TION 
CORE DUMP NOT SELECTED CLEAR BITS tg pa 7.6 a ALL WORDS OF WRITE DATA BUFFER 
BIT # PARAM ;1S COR SET? 


zNO 

SMAYBE, IS CORE DUMP SET? 
7 YES 

7NO 

CLEAR BITS 15,14,7.6 
:DONE ALL? 


; RANDOM NUMBE 
EXIT WITH RANDOM NBER IN LOCATION NAMED *'RANDOM’’ 
RANGEN: RO,SVO 


<IF 
PATEND: 100.P 
PATEN 
BIT #200, PARAM 
BNE PATEN2 
PATEN: MOV 
PATEN1: BIC #140800, (2)+¢ 
CMP RBUF ,R 
BNE PATENT 
PATEN2: RTS PC 
R GENERA 
MOV SV 
MOV R1,SV1 
MOV R2,SV2 
MOV R3,SV3 
MOV LONUM,RO 
MOV HINUM.R 
MOV #7 ,R3 
CLR R2 
RANG1: ASL RO 
ROL R1 
ROL R2 
DEC R3 
BNE RANG? 
ADD LONUM, RO 
ADC R1 
ADD HINUM,R1 
ADC R2 
ADD #1057,RO 
ADC R1 
ADC R2 
ADD #47601,R1 
ADC R2 
ADD #6.R2 
ADD R2.RO 
ADC R1 


:SAVE REGISTERS 


SET UP LOW DIGIT 
SET UP HIGH DIGIT 
:SET UP SHIFT COUNT 


tm A! RO LEFT AND 

TATE CARRY INTO LSB OF R1 AND 
{ROTATE CARRY OUT OF R1 INTO R2 
tag R3 
; CONTINUE SHIFT LOOP 
zADD NUMBER TO MAKE X 129 
; PROPAGATE CARRY 


zADD NUMBER TO MAKE X 129 
[PROPAGATE CARRY 

zADD LOW CONSTANT 
[PROPAGATE CARRY 
zPROPAGATE CARRY 

ADD _HIGH CONSTANT 
PROPAGATE cians 

ZADD HIGH C 


ANT 
rey ws B nO rh, HIGH DIGIT 
[PROPAGATE 


SEQ 0038 


RAO RAT S > > > =  — 
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BNE 
2171 007644 000207 RTS PC EXIT READIT 


( 
CZTMCD.P11 03-JUN-80 15:26 SEQ 0039 ( 
2116 007360 010067 000032 MOV RO, RANDOM ;SAVE RANDOM NUMBER { 
2117 00734 010067 000030 MOV RO, LONUM :PUT RO BACK IN LONUM { 
2118 007370 010167 000026 MOV R1HINUM :PUT R1 BACK IN HINUM { 
2119 007374 016700 000024 MOV sv6,RO SRESTORE REGISTERS t 
2120 007400 016701 000022 MOV $V1.R1 { 
2121 007 016702 000020 MOV vg.Re { 
g2¢ 007410 016703 000016 MOV - t 
2123 007414 000207 RTS PC ZEXIT f 
2124 007416 000000 : { 
2125 007420 000000 LONUM: 0 t 
007422 000000 HINUM: 0 t 
2127 007424 000000 Sv0 0 { 
2128 426 000000 Sv1 0 { 
2129 007430 000000 v2 0 { 
2130 007432 000000 Sv3 0 { 
2131 t 
2132 f 
2133 ;READ RECORD SECTION f 
2134 007434 005767 171164 READI: TST R :FIRST RECORD? f 
2135 007 00100 $R1 : f 
2136 0074642 016767 171106 171172 MOV STRLEN,READLN SET INITIAL READ LENGTH f 
2137 007450 012767 171114 $R1: MOV #-3,RDPASS S INITIALIZE READ PASS COUNTER f 
2 007456 016 171102 171016 RDSTPD: MOV COMAND , aMTC f 
2139 007464 105777 171012 TSTB ss @MT f 
2140 007470 100375 BPL =6 :WAIT FOR CONTROL UNIT READY ( 
2141 007472 006077 171002 ROR amTs ( 
2142 007476 103375 BCC =4 ;WAIT FOR TAPE UNIT READY ( 
2143 007500 016700 171030 READGO: MOV ( 
2144 007504 016701 171132 MOV READLN,R1 ( 
2145 007510 105020 RG:  CLRB (0)+ ZCLEAR READ BUFFER ( 
2146 007512 005301 DEC R1. ' 
2147 14 001375 RG1 
2 007516 016777 171120 170760 MOV READLN, aBC 7SET BYTE COUNT i 
2149 007524 170754 NEG @BC 
2150 007530 016777 171000 170750 MOV RBUF ,@CA ;SET CURRENT ADDRESS " 
2151 -007536 016777 171022 170736 MOV COMAND , aMTC l 
2152 007544 052777 000002 170730 BIS #2, atc l 
2153 007552 004767 175424 JSR PC, GOWAIT ' 
2154 ;RETURN HERE AFTER’ INTERRUPT ' 
2155 007556 017767 170716 171014 MOV aMTS,STATRD ‘ 
2156 007564 005777 170712 TST amc ZANY STATUS ERRORS 8 
2157 007570 100504 BMI RDERRO YES ' 
2158 :CHECK FOR DATA ERRORS 
2159 007572 016700 170736 MOV RBUF ,RO 
2160 007576 016701 170730 MOV WBUF .R1 
2161 007602 016702 171034 MOV READLN,R2 ' 
2162 007606 022021 $R5: CMP (0)+, (i)+ ZCHECK FOR PROPER DATA TRANSFER 1 
2163 007610 001045 BNE DATERR SHAVE DATA ERROR ' 
2164 007612 162702 000002 SUB #2,R2 [CHECKED ALL TRANSFERS? ' 
2165 007616 0013 BNE $R5 =NO ‘ 
2166 007620 032767 000003 171504 RITSSTP: BIT #3, PARAM ‘ 
2167 007626 001007 BNE RDSTPC 8 
2168 007630 004767 000274 JSR PC .RDINCR y INCREMENT FOR NEXT BLOCK , 
2169 007634 026767 170764 170766 CMP RECORD ,LASRCR ‘ 
2170 007642 001316 READGO ’ 
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ZT™MCD.P11  O3=J 15:26 SEQ 0040 
217 7 032767 000002 171456 RDSTPC: BIT #2,PARAM 71S READ MODE RANDOM? 
173 007654 001414 BEQ RDSTP :NO 

2174 007656 004767 177364 RNDRDS: JSR PC .RANGEN 

2175 007 052767 177400 177526 BIS #177400, RANDOM 

2176 +0076 12704 177470 RNDS1: MOV #200. ,R4 ;DELAY 1 MILLISECOND 
2177 007674 904 INC RG 

2178 007676 001376 BNE <2 

2179 5267 177512 INC 

2180 007704 001371 BNE RNDS1 

2181 007706 004767 000216 RDSTP: JSR PC,RDINCR 

e182 007712 026767 170706 170710 CMP RECORD,LASRCR ;DONE LAST RECORD? 
2183 00 901256 BNE RDSTPD NO 

2184 bors 7 RTS PC SYES EXIT 

2185 sHAVE DATA ERROR 

2186 007724 032777 020000 170560 DATERR: BIT #20000, aSwR ; TYPE ALL READ ERRORS? 
2187 00 001014 BNE DATER1 =NO 

2188 007734 012702 013006 MOV #MSGIA,R2 

2189 007740 1 TOP 

2190 007742 016767 170674 170606 MOV READLN, LENGTH 

2191 007750 004767 001066 JSR PC,PRTS 

2192 007754 014102 MOV -(4) ,R2 ;PRINT EXPECTED DATA 
2193 007756 104412 OCTPRT 

2194 007760 014002 MOV -(0) ,R2 

2195 007762 104412 OCTPRT :PRINT ACTUAL DATA 
2196 007764 022767 177775 170600 DATER1: CMP #~3,RDPASS 

2197 007772 001002 BNE +6 

2198 007774 005267 170634 INC DAERRS :+1 TO DATA ERRORS 
2199 010000 000426 


BR RTSR1 
:STATUS INDICATES AN ERROR, CHECK FOR EOT 
sous 010002 032767 175600 170570 RDERRO: ae AL + cas 31S ERROR LEGITIMATE OR EOT? 


a a A a i a ae a a Ee i cet EI he BN a 


010010 001515 RAD SHAVE EOT 
2203 010012 032777 020000 170472 BIT #20000, aSwR [TYPE ALL READ ERRORS? 
2204 010020 001010 BNE RTSREC ‘NO 
2205 010022 012702 012761 MOV #MSG9,R2 
2206 010026 104404 TOP :PRINT ERROR 
2207 010030 016767 170606 170520 MOV READLN, LENGTH 
2208 010036 004767 001000 JSR : 
2209 :+ 1 TO RDERRS IF FIRST ERROR PASS 
2210 010042 022767 177775 170522 RTSREC: CMP #-3,RDPASS 
2211 010050 001002 BNE .+ 
2212 010052 005267 170554 INC RDERRS :+1 TO STATUS ERRORS 
2213 010056 032777 000020 170426 RTSR1: BIT #20, aSWR :DELETE READ RETRYS (Sw 4)? 
2214 010064 001011 BNE RPASS3 YES 
2215 010066 005267 170500 INC RDPASS [DONE ALL RE-READS? 
2216 010072 001404 BEQ RPASS1 YES 
2217 010074 004767 1 JSR PC,BACK1 [NO, BACKSPACE TAPE 
2218 010100 000167 177352 JMP RDSTPD [GO AGAIN 
2219 010104 267 170526 RPASS1: INC NRREAD +1 TO NONRECOVERABLE READ 
2220 010110 012767 177775 170454 RPASS3: MOV #~-3, RDPASS 
2221 010116 67 170454 BIT #2000,STATRD AT _EOT? 
2222 010124 001054 BNE RNDTP{ SYES, TYPE ‘EOT'’ 
2223 010126 BR RDSTP 
2226 ;SET UP POINTERS FOR NEXT RECORD 
2225 010130 005267 170470 RDINCR: INC RECORD 
2226 010134 005767 170436 TST BLKINC 
2227 010140 001416 BEQ RESTRI1 
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oe a 
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} 
C 
“CzTMeD.P11 03-JUN-80 15:26 SEQ 0041 
| 2228 ;RECORD LENGTH IS CHANGING, COUNT IT 
| 2209 010142 066767 170430 170472 ADD BLK INC ,READLN 
2230 010150 026767 170466 17035 uP READLN,MINLEN 1S LENGTH LESS THAN MINIMUM 
2231 010156 0024 BLT RESTRL : 
$5t6 010160 026767 170456 170340 CMP READLN,MAXLEN 31S LENGTH GREATER THAN MAXIMUM? 
2233 010166 003403 BLE RESTR1 : 
2234 010170 016767 170360 170444 RESTRL: MOV STRLEN,READLN RESET INITIAL LENGTH 
2235 010176 000207 RESTR1: RTS PC 
2236 
2237 
2238 :BACKSPACE ONE RECORD 
2239 010200 006077 170274 BACK1: ROR amTs 
2240 010204 103375 BCC 4 ;WAIT FOR TAPE UNIT READY 
2241 010206 012777 177777 170270 MOV #~1,aBC :COUNT 1 RECORD 
2242 010214 016777 170364 170260 MOV COMAND , aMTC *SELECT DRIVE 
2243 010222 052777 000012 170252 BIS #12,amMTC : ISSUE BACKSPACE 
2244 010230 004767 174746 JSR PC, GOWAIT 
2245 010234 042777 000016 170240 BIC #16, amTC 
2246 010242 000207 RTS PC 
2247 :DRIVE HAS REACHED EOT IN READ MODE 
2248 010244 004767 177660 RNDTAP: JSR PC .RDINCR 
2249 010250 052767 000020 170366 BIS #20 MODES sINDICATE AT EOT 
2250 010256 012702 013620 RNDTP1: MOV #4SG25 ,R2 
2251 010262 104404 TOP 
2252 010264 012702 012654 MOV #SGB RZ 
2253 010270 104404 TOP 
2254 ;DUMP ERROR COUNTERS 
$532 010272 004767 000610 READMP: JSR PC,PRTD ;PRINT DRIVE, PATTERN, PARITY, DENSITY 
2257 010276 016767 171030 001132 MOV PARAM, CHAR 
2258 010304 042767 177774 001124 BIC #177774, CHAR 
2259 010312 012702 013310 MOV #4SG14,R2 
2260 010316 022767 000001 001112 CMP #1, CHAR 
2261 010324 001002 BNE +6 
2262 010326 012702 013270 MOV #SG12,R2 
2263 010332 022767 000002 001076 CMP #2, CHAR 
2264 010340 001002 BNE .+6 
2265 010342 012702 013300 MOV #™SG13,R2 
2266 010346 104404 TOP :PRINT READ MODE 
2267 010350 016702 170250 MOV RECORD ,R2 
2268 010354 104426 DECPRT 7PRINT RECORD NUMBER 
2269 010356 016767 170750 001052 MOV PARAM, CHAR 
2270 010364 042767 177717 001044 BIC #177717, CHAR 
2271 010372 012702 013336 MOV #4SG17,R2 
2272 010376 022767 000020 001032 CMP #20, CHAR 
2273 010404 001002 BNE : 
2274 010606 012702 013345 MOV #4SG18,R2 
2275 010412 022767 000040 001016 CMP #40, CHAR 
2276 010420 001002 BNE +6 
2277 010422 012702 013320 MOV #4SG15,R2 
2278 010426 022767 000060 001002 CMP #60, CHAR 
2279 010434 001002 BNE +6 
2280 010436 012702 013327 MOV #4SG16,R2 
2281 010442 104404 TOP ;PRINT RECORD LENGTH SEQUENCE 
2282 010444 012702 013450 MOV #SG21,R2 
2283 010450 104404 TOP 
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2284 010452 016702 
2285 010456 104426 





2305 010514 012767 
2306 


a4 010650 001324 
2331 010652 012702 
2332 010656 1 

2333 010660 016767 
2334 010666 004 
2335 010672 012702 
2336 010676 1 

2337 010700 032767 
23 010706 001702 
2339 010710 042777 


CZTMCD.P11 03-JUN-80 15:26 


170154 


013500 
170142 
013521 
170130 


177774 
000040 


177442 
167740 


167674 
174370 
167656 
167742 
175600 
167724 


012626 
167754 
000150 
013242 
002000 
000016 


MACY11 30A(1052) 


170052 
167762 


167730 
167722 
167716 


167706 


167760 


167736 


167670 


167672 
167564 


MOV 
DECPRT 


; 0 4 
O3-JUN-80 15:27 PAGE 42 


RDERRS ,R2 


#MSG22 ,R2 
TOP 
DAERRS ,R2 
#MSG23 ,R2 
TOP 
NRREAD ,R2 


PC 


WRITE RECOVERY UTILIZING ars INTERRECORD GAP 
USED AFTER EVERY 7 REWRITES OR AFTER 
ERED WRITE ERROR IF STATISTICAL RECOVERY NOT SELECTED 


;USED ONLY IF READ PASS SELECTED 
GREC: MOV #~4 ,WRPASS 


XRGO: BIT 


COUNT 4 REWRITES 


#40, aSWR DELETE WRITE XIRG (SW 5) 
XRGRCD :YES 
PC,BACK1 
TC 
74 
COMAND , amTC 
#14 ,amMTC WRITE XIRG 
en :SET BYTE COUNT 
WBUF ,aCA :SET CURRENT ADDRESS 
aMTs :WAIT FOR TU READY 


74 
PC,GOWAIT 


RETURN HERE AFTER INTERRUPT 
MOV aMTs, 


TST 
BMI 
XRGRCD: CLR 
RTS 
MRGS: BIT 
BEQ 


INC 


STATRD SAVE STATUS 
XRGS HAVE ERROR FLAG, CHECK FOR EOT 
WRPASS 
sEXIT WRITE XIRG 


PC 

#175600, STATRD 

XRGRCD : ONLY ef aie 
DONE 4 XIRG 


BNE XRGO 
PRINT STATUS AFTER 4 XIRG ERRORS 
MOV #MSG7 ,R2 


° 


T PRINT WRITE STATUS ERROR 
WRTLEN, LENGTH 
PC,PRTS PRINT STATUS, COMMAND, RECORD, LENGTH 
#™SG11,R2 
;PRINT *“XIRG WRITTEN 4 TIMES"' 
#2000, STATRD 
XRGREC 
#16,amTC 
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CZTMCDO _TM11 DATA RELIAB 
03-JUN-80 15:26 


23%40 010716 052777 


CZTMCD.P11 


B 

N 
leleolelelelelelelolelojlelelelelololo) 
3 2333543545555554554545555 


NRSRSSEKRBES 
2 
s 
N 


2341 010724 004767 
010730 000207 


016767 


010732 
010740 016767 
010 003 


016767 


000367 
142767 
052767 
004767 


000003 
174252 


167666 
167662 


174032 


62 
167472 
167462 
000016 
000012 
174142 
013031 
167426 
167516 
167534 


167456 


167452 
00031 
000170 
000. 





aes Re Ra —E 4 
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167556 BIS #3,aMTC WRITE AN EOF 
JSR PC, GOWAIT 
RTS PC 
;GO BACKWARD ON TAPE XK RECORDS 
167670 GOBKWD: MOV RECORD ,LASRCR 
167656 MOV WRRECR ,RE CORD 
BNE G081 31S NEW RECORD=0 
JSR PC,REWIND 7 YES ,REWIND 
RTS PC sEXIT 
167520 GOB1: MOV LASRCR , aBC SET BYTE COUNT TO DIFFERENCE 
167512 bey — BETWEEN LASRCR AND WRRECK 
167476 MOV COMAND , aMTC 
TSTB amc sWAIT FOR CU READY 
BPL 7-4 
ROR anys sWAIT FOR TU READY 
BCC 74 
167454 BIC #16,aMTC 
167446 BIS #12,aMTC 
i. 4 seated 
zPRINT COMMAND, STATUS, RECORD NUMBER, LENGTH 
PRTS: MOV MMSGIB ,R2 
TOP 
V @MTC,R2 
OCTPRT 
V STATRD ,R2 
OCTPRT 
MOV RECORD ,R2 
INC R2 
DECPRT 
V LENGTH,R2 
DECPRT 
CKSW 
RTS PC 
;PRINT DRIVE, PATTERN, PARITY, DENSITY 
000322 PRID: MOV COMAND , CHAR 
SWAB HAR 
000310 BICB #170, CHAR 
2 BIS #260, CHAR 
258 PC,OCTP PRINT DRIVE NUMBER 
000266 MOV PARAM, CHAR 
SWAB CHAR 
ROR CHAR 
000250 BIC #170, CHAR 
000242 BIS #260, CHAR 
g3R PC,OCTP ;PRINT PATTERN NUMBER 
000226 MOV PARAM, CHAR 
SWAB CHAR 
000214 BIC #176,CHAR 
000206 BIS #260, CHAR 
JSR PC,OCTP PRINT PARITY 


SS Le LT eel ee 


ANA AMMA AHA At tt tt at tt tt tt Ht 


-———— 


| 
| 
| 
| 
| 
| 


CZTMCDO TM11 DATA RELIAB 


CZTMCD. P11 03-JUN-80 15:26 
23% 
2397 
2398 011234 016767 17007 
2399 0112462 042767 17747 
2400 011250 012702 013663 
2401 011254 02276 
2402 011262 001002 
2403 011264 012702 013673 
2404 011270 022767 000200 
2405 011276 001002 
2406 0113500 012702 013703 
2407 011304 022767 000300 
24608 011312 1002 
2409 011314 012702 013713 
2410 011320 404 
2411 011322 104436 
els 011324 207 
2414 011326 012767 000060 
2415 011334 5702 
2416 011336 3 
2417 011340 012767 000061 
2418 011346 004767 000066 
2419 011352 006102 
2420 011354 006102 
2421 011356 012767 177773 
2422 011364 006102 
2423 011366 006102 
2424 011370 006102 
2425 011372 010267 000040 
2426 011376 042767 177770 
2427 011404 052767 000060 
2428 011412 
2429 011414 006767 000020 
2430 0114 006102 
2431 011422 005267 000006 
2432 011426 001356 
2433 011430 104430 
2434 011432 000207 
2435 011434 
2436 011436 
2437 011440 105 167056 
2438 011444 100375 
2439 011446 016 177764 
2440 011454 000207 
2441 
2442 
2443 
2444 011456 012767 177773 
2445 011464 012767 011642 
2446 011472 012767 0 
2447 011500 012767 177777 
2448 011506 5267 000120 
2449 011512 167702 000122 
2450 011516 100373 
2451 011520 067702 000114 


ee ee 
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000174 
009166 
000154 
000140 


000124 


000102 


000070 


000050 


000032 
000024 


167050 


RT PC 
s;PRINT OCTAL VALUE IN REGISTER 2 
OCTPR: #°0,CHAR 


OCcT1: 


OCT2: 


F 4 
O3-JUN-80 15:27 PAGE 44 


SEQ 0044 


PARAM. CHAR 
#177477,CHAR 
#5626 ,R2 
#100, CHAR 
+6 
#SG27.R2 
#200, CHAR 
WMSG28 ,R2 
#300, CHAR 


+6 
WMSG29,,R2 


INITIALIZE 1ST NUMBER AS 0 
1S VALUE POSITIVE 


OcT1 :YES PRINT 0 
#°1,CHAR *NO PRINT 1 
PC,OCTP 

R2 

R2 

#-5.0CT :COUNT 5 DIGITS 
R2 

R2 

R2, CHAR :SAVE DIGIT 
#177770,CHAR —: CLEAR OTHER BITS 
#60. CHAR SMAKE ASCII DIGIT 
pC .OCTP :PRINT 
OcT 3+1 TO DIGIT COUNT 
OcT2 [NOT DONE 

PC ZEXIT 
aTPs 

=4 ;WAIT FOR READY 


CHAR, aTPB *PRINT 
PC 


;PRINT ye. w= 9 IN ~ ait 2 
DECPR: #-5 ,DIGCNT 


TYPT1: 
TYPT2: 


#DECPNT+2,DECPNT 
#40,ZERO 
#-1,DIGIT 

DIGIT 

=a el R2 
@DECPNT .R2 


NM MM MEE EC EEE ee Lee eww Km Km mC a tt tt tt tt Ht tt tt nt iO] 


— 


CZTMCDO _TM11 DATA RELIAB 
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CZTMCD. 


2452 


P11 


jolejloleleleololeloleolololeolelololeleolole) 


Se tS SS SS SS SS Sh So SS SS os SS Sh SS Ss SY 
St ss Ss ss 4) Ss 4s Ss 9) = Ss Ss +3 5) 3 Ss 9) 1s 3 SY se ss 


esssssss 


SoCooCoooooco 
~~ a ot os 
SEES SSE 
NEKSRVIBESS 


pesupnyaurrynas 
2888 
3 


sTRESREERES 
38 


— 

AX 

wu 

NO 
$88 
rp 

= 
=n 


1714 012702 
1 1044 


000022 
000100 


000002 
000054 
177777 
000042 
000060 
000060 
166702 
000004 


011724 


020040 


MACY11 


000070 


000046 
000034 
000030 
000016 


166674 


057 


166562 


G 4 
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TYPT3: 
DECOUT: 


KE 
WAI 


SP3X: 


SP3A: 


; TELETYPE OUTPUT 
TO: B 


TOP1: 
TOP3: 


R 
TYPE 3 
MO 


YBOARD INPUT 
TK: TB 


TS 
BP. 


PC ,DECOUT 
DIGCNT 
TYPT3 


DE 

#-1 ,DIGCNT 
DEC 
ZERO,DIGIT 
DEC2 


@TKB, CHARIN 
#200, CHARIN 
PC 

#SP3A,R2 

TOP 
PC 
as 


PACKAGE 
tS obat 


;WAIT FOR KEY 
:WAIT FOR TELEPRINTER READY 
;ECHO CHARACTER 


SAVE IT 
sEXIT 


;CLEAR TELETYPE FLAGS 
SAVE MESSAGE DELIMETER 
qh CHARACTER THE SECOND MESSAGE DELIMITER? 


. 


:YES, EXIT 


1S CHARACTER AN @ WHICH INDICATES A CARRIAGE RET. 
[NO, WAIT FOR TELETYPE READY 


SEQ 0045 


+ PAMAMAMRMAA OM 


—CZTMCDO TM11 DATA RELIAB MACY11 


| CZTMCD.P11 


011774 
012000 


03-JUN-80 15:26 


112277 166524 
000761 


105777 166514 


12777 000215 166506 
05777 166500 


i 000212 166472 
5767 166506 


013746 000006 
013746 000004 
012737 012076 000004 
eeer te 177777 +=166420 


2626 
012767 000176 1664 
012767 000174 166400 
000004 


012637 000006 


022767 000176 166356 
001035 
166354 
100032 
017767 166350 166366 
177600 166360 
acale? 000007 166352 
012702 013747 
012702 013754 
104404 
017702 166302 
Hh 013765 
005037 000542 
67 000002 


067 
012767 000007 166300 
104400 
042767 177600 167052 





30A (1052) 


EOMK: 


SUSWR: 


CKSWR: 


CNTLU: 


SREAD: 


H 4 
O3-JUN-80 15:27 PAGE 


“ee {eps -@TPB 
CARRIAGE. RETURN, LINE FEED 
ToP2: STB aTPS 

BPL 74 

V8 #215, aTPB 

TSTB aTPSs 

BPL -4 

MOVB #212,a1PB 

INCB R2 

TSTB RDSW 

BM! TOP3 

BR TOP1 

0 

MOV a46 ,-(SP) 

MOV a4 ,~(SP) 

MOV #1$,a84 

CMP #~1 ,ASWR 

BEQ 

BR 3$ 

CMP bs et (SP)+ 

MOV WREG, SWR 

MOV *DISPREG. DISPLAY 

MOV (SP) +, a0 

MOV (SP) +; a6 

RTS PC 

CMP AMSWREG , SWR 

BNE OUT 

TSTB aTKS 

BPL OUT 

MOV aTk8,TIB 

BIC #177600,TIB 

CMP 7,118 

BNE OUT 

MOV #SCNTG,R2 

TOP 

MOV #SMSWR ,R2 

TOP 

MOV @SWR ,R2 

OCTPRT 

MOV WSPNEW .R2 

TOP 

CLR @4TEMPST 

JSR PC, $READ 

RTS PC 

CLR TEMPST 

MOV #7, COUNT 

WAITKY 

Ic #177600, CHARIN 


3TH 
71S IT A <*@> 


46 


PRINT CHARACTER . 


CR 


iF 


SAVE VECTORS 


;SET UP FOR TIMFOUT 
SREFERENCE HARDWARE SWITCH REGISTER 


a STACK 

[POINT TO SOFTWARE SWITCH REG 
sPOINT TO SOFT DISPLAY REG 

;RESTORE VECTORS 


SOFTWARE SWITCH REG PRESENT 
GET OUT 


:NO, 
:YES, WAIT FOR 
READY, ay CHARACTER 

SAND STRIP OFF 

HE GARBAGE 


:GO READ A LINE 
RETURN TO MAIN BODY OF PROGRAM 


;GO READ A CHARACTER 
STRIP OFF GARBAGE 


SEQ 0046 


-CZTMCDO TM11 DATA RELIAB 
03-JUN-80 15:26 


| CZTMCD.P11 
122767 
005726 
122767 


&3 


KRRRRKRRRS 
ee Ee ee eye yee) 
WDWNAUSWN—O 
_~— 4 3 OOO 
ae 
mr 
_ 
o 


RERRR 
R 


406 
410 


N 
uw 
oO 
— 
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000025 


000015 


000200 
177470 
000007 
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167044 


167030 
166240 
166224 


166772 
166762 


I 4 
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Q3-JUN-80 15:27 
SEQ 0047 
CMPB #25, CHARIN sIS IT A *U? 
BNE 2s ;BRANCH IF NOT 
3$: TST (SP)+ ;POP THE STACK 
BR CNTLU ; START OVER 
23: CMPB #15, CHARIN 71S IT A <CR>? 
BNE 4$ ;BRANCH IF NOT 
MOV #200,RDSW 
JSR PC, TOP2 sECHO IT WITH <LF> 
CMP #7 ,COUNT zWAS IT FIRST CHARACTER 
BNE 7$ ; CHANGE SWR IF NOT FIRST ONE 
8$: TST (SP)+ POP THE STACK 
BR OUT :GET OUT 
4$: CMPB #60, CHARIN 
BGT $ 
CMPB #67, CHARIN 
BGE 
5$: — MSQUEST,R2 
BR ZSTART OVER IF NOT LEGAL CHARACTER 
6$: ASL TEMPST 
ASL TEMPST 
ASL TEMPST 
BICB #60, CHARIN ;GET NITTY-GRITTY 
BISB CHARIN, TEM°ST 
DEC COUNT ;ONLY WANT 6 DIGITS 
BEQ 5$ 
BR 1$ 
7$ _ semana ; CHANGE SWITCH REGISTER CONTENTS 
; TRAP HANDLER 
TRAP34: MOV aSP,2(6) 
SUB #2,aSP 
MOV a(é)+, ~(6) 
ADD #TABLE ee asP 
MOV a(6)+, 
TABLE: WAITK 
WRITI 
TO 
SVCTR 
RSFDR 
OCTPR 
MVCTR 
GENPA 
CLRAL 
CHGDR 
READI 
DECPR 
SP3X 
SUSWR 
ah 
WAITKY=164206 
WRITIT=104402 
TOP=104404 


SVCTRS=104406 
RSF DRV=104410 


CZTMCDO T™11 DATA RELIAB 
| CZTMCD.P11 


03-JUN-80 15:26 


MSG2: 


MSGS: 


MSG6: 
MSG7: 


MSG8: 


MACY11 30A(1052) 03=JUN-80 


I] 
ASCII 


-ASCII 


-ASCII 


-ASCII 
-ASCII 


-ASCII 


-ASCII 


-ASCII 
-ASCII 


-ASCII 


J 4 
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3/70 /; 
;/@SELECT UNITS /; 


:/@TST PAT PAR DEN RLS WMO RMO@ /; 


;/MAX TESTS SELECTED@/; 
3/7 OK/; 
:/@WRITE STATUS ERRORG/; 


7/END OF TAPExsxanannnenennaennang: 


:DRV PAT PAR DEN MODE RECORD LENGTH@/; 


;/@READ STATUS ERROR@/; 
:/@READ DATA ERROR@/ ; 


;/COMD 


SEQ 0048 


LENGTH EXPECTED ACTUAL@/; 





erat 2 K 4 
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CZTMCD.P11 


2676 
77 


01 


eeeeeeeeeee 


03-JUN-80 15:26 


051111 
052111 


020064 
027523 
051523 


047122 
051516 
046455 
026515 
047111 
040515 
ee 


045055 
04252 


7 520 
e705 


oe! 708 
Ou os00 
040524 
051105 
036440 


040504 
051122 
020075 


04 
047111 
052111 


050124 
046504 
050124 
054101 
044515 
020040 
020130 
052111 
047522 





MSG10A: 


MSG108: 


MSG11: 


MSG12: 
MSG13: 
MSG14: 
MSG15: 
MSG16: 
MSG17: 
MSG18: 
MSG19: 


MSG20: 


MSG20A: 


MSG21: 


MSG22: 


ASCII 


-ASCII 


-ASCII 


-ASCII 


-ASCII 


ASCII 
-ASCII 
-ASCI1 
-ASCII 
-ASCII 
ASCII 
-ASCII 
-ASCII 


-ASCII 


ASCII 


-ASCII 


-ASCII 


;/@CZTMCDO TM11 DATA RELIAB; 


s@RECORD LIMITS IN BYTES; 


Z@MINLEN MAXLEN@/; 


3/@EXERCISING UNITS/; 


7/XIRG WRITTEN 4 TIMES/; 


sf SSTP 7/3 

37 RNDM /; 

3/7 NSTP /; 

7 /M-MAX/ ; 

3 /M-MIN/; 

:/MIN /; 

7/MAX /; 

:/@WRITE ERRORS = /; 


z;/@RECOVERED AT O /; 


:/@PERMANENT BADSPOTS 


;/@READ STATUS ERRORS 


:/@DATA ERRORS = /; 


" 
en” 
®. 


" 
~s 
es 


SEQ 0049 


| 
| 3 
| 


“cZTMCDO TM11 DATA RE 


CZTMCD.P11 O3-JUN 


REED eee he 
essssssssss 
WAI 

SESRERR SSS Ga rUNN 


ooo0o 
—32554 


013521 
2 01 35% 8 § 
2 013 
04 


MACY11 30A(1052) 


0 

051501 
027507 
051127 
042516 
027500 


i eS 
03-JUN-80 15:27 PAGE 50 


MSG23: .ASCII 
MSG24: ASCII 
MSG25: ASCII 
MSG26: .ASCII 
MSG27: .ASCII 
MSG28: .ASCII 
MSG29: .ASCII 
MSG30: .ASCII 
MSG31: ASCII 


SCNTG: .ASCII 


SMSWR: .ASCII 
SMNEW: .ASCII 
SQUEST: .ASCII 
- EVEN 
BUFFER: . 
- END 


/ 
st 5S4/: 
/ 
/ 


7/7@NON RECOVERABLE ERRORS = 


p/QrteeaaaanaeaeeeeeeeRWRITE PASS /; 


/QrrteaneaanaanaeeeeeeRREAD PASS /3 


200/; 


800/; 
CD /; 


3/aaa/; 
:/@END OF PASS@/; 


sWRITE BUFFER BEGINS HERE 


SEQ 0050 
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CZTMCD.P11 03-JUN-80 15:26 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0051 
ALLEOS 1683  1687# 
/ALLEOT 005064 1398 1414 1446 1478 1547 1588 1600 16804 
1 005046 16818" 1685 
ALL2 005154 1689 1691 1705 
ALL3 005150 1686 17 
ATST 000550 9954 1075* 1170* 1183 
001 966 10734 
BACK] 010200 1845 1846 «= 2217, 2239 = 23 
000 9744 1769% 1750% 18508 2148% 2149% 22418 23138 23148 23508 2351" 23528 
BLKINC 000576 1 1730® 17348 1738 1802 18 2226 ©. 2229 
BUFFER 014004 985 1084 1090 10 1138* 1139 1158 1164 1169 2770 
000506 9754 1751% 2150® 2315 
C 000510 9764 1716% «17218 
005144 1700 17024 
CDRIVE 000570 10034 1622 1636* + 1640* 1644 1659 
CDRVBT 000566 10024 1637* 1638  1642* 1661* 1666 
CHAR 011436 1867* * 1870 1873 1879% 1880* 1882 1885 1888 2257" 2258" 2260 2263 
2269" 2270* 2272 2275 2278 2378 2379% 2380" 2381" 2384s 2385" 2386% 23878 
2388* 2391% 2392 2393* 2394% 2398  2399% 2401 26404 2407 24148 26178 26258 
2426% 2427% 2436" 2439 
CHARIN 001326 10 11 118611 1195* 1196" 1198" 1219 1224 1226 1231 1241 1243 
1245" 1266* 1247" 12468 1252 1254 1262 1264 1268 1272 1278 1280 1284 
1288 12% = «13 1306 1308 «1312 1322 2686" 2487 2563" 2564 
2576 2578 2586* 2587 
CHGDR 004750 16594 1 2608 
CHGDRV= 104422 3 1412 1430 1437 1444 1461 1469 1476 1496 1507 15146 1526 1540 
1545 1572 1586 15 630 1684 1702 2624 
CHGD1 001372 1074# 
CHGD2 003 1374 
CHG] 004774 1662 1666 
CKSW = 104436 1361 1687 1698 1831 1910 1919 2296 2374 2611  2630# 
CKSWR 012126 25404 2614 
CLRAL 004572 1626# 2607 
CLRALL= 104420 1387 14606 1422 1453 1491 1555 26230 
CLRTBL 005156 1628 1709" 
CLRT1 0051 1710# 1712 
CLR1 004574 1627# 1631 
CNTL = 1044 1341 2 
CNTLU 012176 2550# 2567 2613 
COMAND 000: VOOI# Tebge 1645" 1648 1651" 1654 16731764 18512138 21512262811 
COUNT 000544 9934 2561* 2572 2588 
CTRDEX 004546 1607 1613 «1619 
CTROMP 005110 16934 1703 
CTRD1 005140 1696 17014 
DAERRS 1022# 2198 2290 
DATERR 007724 2163 21864 
DATER1 0077 2187 21964 
DECOUT 011552 2452 2459 
DECPNT 011640 26445* 2449 2651 2457 26 76H 
DECPR 011456 2444" 2610 
DECPRT= 104426 1128 §=6 1130 3S: 1878 = 1895. 1904 = 1918» 2268_)~=— 2285S 2291S 2295. 2371S 2373 (626 
DEC! 011600 2460 2662 24654 
DEC2 011614 2464 24674 
DIGCNT 011634 2444 2653% 2461 24724 
DIGIT 011632 2447* 266B% 2459 2463% —2466* 2469 24718 : 





23 








DO TM11 DATA RELIAB 


D.P11 03-JUN-80 15:26 


013. 

013310 
013320 
013327 


4) 3 4 3 > a oe 


velelolololol=} 
BEAVISS 


aaseeRes 
SOUS Suey 


ERR aass 


2 


—s pH NYP HH - > a a 


ara 


1228 


eo fy es 
SRS 
QSANARAR 


00 
8 


socninerntnesiiienpnsivaarsietiesmanmnte a wr 
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rr 
Yin 
ety vy 
= 


1448 1480 1549 1590 1602 


1620 
1119s 


e3k3 


ee 


RRRRASSY= 
ogee 


EFSSCEREERE 
VISES ELLE 
Ww ONUW— 


3 tt Ss fy) 2 ss 
SOAS 


z 


1405 1423 1454 1486 1556 26224 


23504 

fal 4 1753 1853 2153 2244 2318 2341 2360 

1 2096 2106 2118* 2126# 

1530 1532 1535* 1536* 1538* 1543 1569* 1570* 1578 
2169 2182 2345* 2350 

1829* 2190* 2207 2333* 7 

i 104 2117* 2125# 

1089* 1093* 1129 1163* 1168* 1729 1807 2232 

11624 

11674 

1088* 1092" 1127 1162* 1167* 1733 1805 2230 

1340" 1386* 1391 1403* 1408 1421* 1426 1433 1440 
1485* 1489% 1490" 1498* 1501 1509 1512 1520 1528 
1576 1595* 1598 1632* 1682 1690 1699 1711 1713* 
1793 1 1801* 1812* 1838 1859*  2249« 

1103* = 1118* 1131 1146 1177* =1181 1202 1204* 1206* 
26324 

26334 

26814 

26934 

26974 

2262 27014 

2265 27039 

2259 27054 

2277 27074 

2280 27 


1581* 


1582* 


SEQ 0052 


1584* 





CZTMCDO TM11 DATA REL 
CZTMCD.P11 03-JUN- 
MSG17 013336 
MSG18 Ol eeee 
MSG19 013354 
he Sieh 
013376 
MSG20A 013420 
MSG21_ 013450 
tae] 013500 
MSG23 013521 
MSG24 013555 
MSG25 013620 
MSG26 013663 
MSG27 9 013673 
MSG2B 013703 
MSG29 013713 
MSG30 013723 
MSG31 13730 
MSGS 012574 
MSG6 012621 
MSG7 012626 
MSGB 012654 
MSG9 012761 
MSGIA 01 
MSG9B = =013031 
MTC 000502 
MTS 000500 
MTV 000536 
MVCTR 0045 
MVCTRS= 104414 
Mv1 004534 
NOINCR 005 
NONSTP 005410 
NO. SEL 1 
NUMTST 001330 
NXMRE T 1 
NXT.TU 001572 
oct 011434 
ocTP 011440 
OCTPR 011326 
OCTPRT= 104412 
OcT1 011346 
oct2 011364 
OUT 012230 
OVERSK 001512 
PARAM 001332 
PATEN 007226 
PATEND 007206 
PATEN1 007232 
PATEN2 007244 
PATEO 006614 





80° 15:26 


1881 2271 
1884 $5i¢ 
1892 1 
1214 26 
1897" 1898* 
1914 $f Ld 
2282 7254 
2288 rae 
2292 732" 
1860 7378 
2250 27434 
2400 7494 
2403 7514 
2406 534 


5 
1336 26424 
1319 264 
1827 2331 
1862 2252 
2205 2 
2188 
2363 26724 

9734 1101* 
1852* 1854* 
2312* 2322 

9724 =§=©1109 
2356* 

9874 1718* 
16134 2605 
1390 1407 
1542 1566 
16144 1616 
1728 1737 
17494 1768 
1113 1115 
10234 2219* 
1055# 1079* 
1083 10874 
11074 1122 
2421* 24318 
2382 2389 
24144 2604 
2193 2195 
2416 24184 
24228 = 2432 
2541 2543 
1086 10924 
10564 1343* 
1778 1867 
2080 20834 
1992 1 
20844 2086 
2082 20874 
1933 19514 





27114 
27134 





am 
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1332* 


2429 
2553 


2575 


1368* 
2079 


2053 





1673* 
21518 
2354 

1747* 


1676* 


1755 
1464 
26214 


1370* 


1579 
2166 


2072 


1646 


2172 


20794 


1744* 
2242* 
365 
2141* 


Nm 


1493 


1649 
2257 


1745 1752* 1756 
2243* 2245* 2309 


2155 2239* 2316* 


1500 1511 1519 


1652 1731 1736 
2269 


2384 2391 


SEG 0053 


1851* 
23118 


2321 


1527 


1765 
2398 
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| CZTMCD.P11 03-JUN-80 15:26 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0054 
PATE] 006630 1935 1959" 
ah 006660 1937 19734 
| PATE 006674 1939 19814 
PATES 006710 1941 19 1994 1995 
PATES 006754 1943 
PATE7 007040 1947 20 2038 2041 
PATOO 006622 1934 19554 
PATO] 006644 1936 19654 
PATO2 006666 1938 19774 
PATOS 006702 1940 19 
PATOG 006734 1942 19974 2003 
PATOS 007002 1944 20194 
PATO? 007070 1948 20444 2047 
PATPNT 006554 1931 19334 
PAT6 007032 1945 946 20324 
PERMBS 2 10174 1837* 1 1916 
PE1 36 1959 19614 
PES 006762 2006 20084 
PFIL1 007110 1952 1956 1974 1978 1982 1985 2033 20504 2052 
PFIL3 007122 1960 1966 20554 
PFIL3A 7130 20574 
PFIL9 007154 2007 2020 20674 
PFIL9A 162 20694 2076 
PO1 52 1965 19674 
POS 1 2019 20214 
PRTD 011106 1865 2255 23784 
PRTS 011042 1830 2191 2208 2334 23634 
RANDOM 007416 1782* 1786* 2037 2039 2045 2116* 2126 2175* 2179* 
RANGEN 007246 1781 2036 2044 20914 2174 
RANG] 007304 20994 2103 
RANSTP 005572 17814 
RAN1 005604 17834 1787 
RBUF 000534 9864 1090* 1094* 1164* 1169* 1990 1999 2040 2046 2051 2058 2070 2085 
2143 2150 2159 
RDE 010002 215 22014 
RDERRS 000632 10214 = 2212* 2284 
RDINCR 010130 2168 2181 22254 2248 
RDPASS 000572 10044 2137" 2196 2210 2215* 2220* 
RDSTP 007706 2173 21814 2223 
RDSTPC 007646 2167 21724 
RDSTPD 007456 21384 2183 2218 
RDSW 000546 9944 2502+ 2518 2570* 
007500 21434 2170 
READI 007434 21344 2609 
READIT= 104424 1442 1474 1537 1583 26254 
READLN 10254 2136* 2144 2148 2161 2190 2207 2229" 2230 2232 2234* 
READMP 010272 22554 
RECORD 10184 1494 1530 1535 1543 1562 1563* 1569 1581 1593 1727 1739 1800* 
1810 1858* 1877 2134 2169 2182 2225* 2267 2345 2346* 2369 
RESETL 005 1806 18094 
RESTRL 010170 2231 22 
RESTR1 010176 2227 2233 22354 
REWIND 005 1627 16714 2348 
RG1 007510 21454 147 
RNDRDS 007656 21744 
RNDS1 007670 21764 2180 


| Hes. 2 ie Tsp ATR 9 HE D5 
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| CZTMCD.P11 03-JUN-80 15:26 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0055 
RNDTAP 010244 2202 22484 
RNDTP1 010256 1701 2222 22504 
RPASS1 010104 2216 22194 
RPASS3 010110 2214 22204 
RSF 16364 2603 
RSFDRV= 104410 1389 1208 14 1455 1492 1499 1518 1526 1565 1574 1591 1626 1663 
1680 169 26194 
RSF1 004640 16384 1643 
RSF2 1639 16444 1668 
RTSREC 010042 2204 22104 
RTSR1_ 010056 2199 22134 
RTSSTP 007 21664 
SELDN1 002552 1265 12684 
SELDN2 0025 1269 12724 
SELDNS 00 1263 1267 1271 12754 
SELDRV 002130 11784 1210 
SELD1 002162 1180 11864 
SELD2. 002202 1187 11904 
SELOK1 003110 1334 13364 
SELPAT 0024 1227 12314 
SELPR 002520 1253 12574 
SELRM1 002770 1309 13124 
SELRM2 003010 1307 1311 13164 
SELR1 002 1281 12844 
SELR2 002654 1285 12884 
SELR3 0026 1279 1283 1287 12914 
SELTST 002 1184 12144 
SELT1 002324 12184 1230 1335 
SELT2 002350 1220 12244 
SELT3 002370 1222 1225 12284 1242 1244 1255 1273 1289 1301 1314 1324 
SELW1 002722 1297 13004 
SELW2 002736 1295 1299 13034 
SP3. = 30 1238 1249 1257 1275 1291 1303 1316 2383 2390 2433 2455 26274 
SP3A 011724 2490 24934 
SP3X 011714 24904 2611 
STACK = 000500 1073 1171 
START 002070 1165 11704 
START1 002074 133 11714 1182 
STATRD 10074 1755* 1820 1842 2155* 2201 2221 2321* 2326 2337 2367 
ST 005 17 17784 
STREC1 006122 1836 18454 
STRLEN 000554 997 1729" 1733* 1735 1809 2136 2234 
STRTOP 005366 17444 1789 1794 1797 1849 1856 
= 104432 1074 1172 26284 
SUSWR 012046 25254 2612 
SVCTR 004512 16074 2602 
SVCTRS= 104406 1394 1411 1429 1436 1443 1460 1468 1475 1495 1506 1523 1539 1571 
1585 1629 26184 
SVC1 004516 1610 
SVRECR 000562 1 1503* 1505 1532* 1538 1578* 1584 
SvO 007424 2091* 2119 21278 
sv1 007426 2092* 2120 21284 
Sv2 7430 2093* 2121 21294 
Sv3 007432 2094* 2122 21304 
| SwR 51 Riki 1362 688 1825 1832 2186 2203 2213 2306 2528 2532* 2540 2552 
| 
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| SWREG 00017 9634 2532 2540 
TABLE 012646 2597 2599" 
TEMPST 000 992" 2556* 2560" 2583" 2584" 2585" 2587" 2591 
TESINC 005670 1561 1769 1790 18008 
TESRC1 1833 «18384 
TESREC 006036 1826 1822" 
TEST 001336 10584 1346* 
TESTO 003330 1347 13864 
TEST? — 003400 1349 14034 
TEST2 003450 1351 14214 
TESTS 003566 1353 1452 
TESTS — 003704 135714854 
TESTS 004226 1356 1554 
B 000540 991" 2544 2545" 2546 
TKB 000520 9804 2485 24 2544 
TkS 16 79H 2481 2542 
TO 011732 24984 2601 
TOP = 104406 1126 «11371159 «1176 1229 1320 1360 1375 1828 1861 1863 


1 1215 1337 1 
1876 1891 1893 1902 1915 2189 2206 2251 2253 2266 2281 2283 2289 
36 2364 2410 2491 2549 2551 2555 2581 26174 


9 
1 
2293 2332 23 

TOP1 011744 25 2509 2520 
TOP2 012002 2505 25114 2571 
TOPS 011752 25024 2519 
TPB 000524 9824 861192" 1209* 1327" 1330* 2439% 2469% 2485* 2508*  2513*  2516* 
TPS 000522 9814 1190 1207 1325 1328 2437 2467 2483 2498* 2506 2511 2514 
TRAPS 012426 951 25944 
TSINC2 005744 1803 1808 18104 
TSINCS 5760 1811 18134 
TSTEX 001334 1057#@ = 1342* 1343 1381* 1487 
TSTSTP 005504 1759 17654 
TSTTBL 001340 10604 1076* 1077* 1078* 1217 1342 
TU. SEL 1534 1091 11004 
TYPT1 011500 24474 2458 
TYPT2 011506 24484 245 
TYPTS 011542 2454 2457# 
T 003342 13894 1399 
TOA 003344 13904 1397 
TOB 003 1392 13964 
11 003412 14064 1415 
TIA 003414 14074 1413 
T1B 003432 1409 14124 
T2 00 14244 1447 
T2A 00 14254 1431 
T2B 003502 1427 14304 
T2C 003506 14324 1438 
T2D 003526 1434 14374 
T2E 003532 14394 1445 
T2F 0035 1441 14434 
T3 00 14554 1479 
T3A 003602 14564 1462 
138 00 1458 14614 
T3C 003624 14644 1470 
T3D 003642 1466 14684 
T3E 003650 14714 1477 
13F 00 1473 14754 
14 003740 1488 14914 
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T4A 003742 14928 
1 003744 14934 
‘T6C 003770 14998 
T4D 003772 1500# 
T4E 004024 1502 
T4F 004040 15114 
'T46G 004056 1510 
T4H 004 1519# 
T4) 004076 1521 
T4k 006104 15264 
T4L 004106 15078 
Tom = 0061 1534 
T4N 006172 1529 
T4P 006176 15424 
5 004240 15574 
TSA 004264 1560 
TSB 004276 15644 
TSC 004306 15664 
TSD 004336 1568 
TSE 004344 1575# 
TSF 004406 1580 
TSFLAG 004506 1557s 
TSG 004420 1577 
TSH 006436 1589 
TSINC 004510 1562s 
T5J 004440 1592# 
T5k 1594 
USSTST 001604 1109# 
USS.OK 001622 1110 
VALID 002220 1189 
VAL1 002236 11984 
VAL2 002250 1199 
VAL3 002264 1203 
VAL4 002270 1193 
WAITK 011654 24814 
WAITKY= 1 1178 
000532 985" 
WRCHEK 000602 10084 
WRITI 005254 1727H 
WRITIT= 104402 1393 
WRPASS 000574 1005# 
2328s 
WRRECR 000626 10194 
WRTDMP 006242 1865# 
WRTD1 006442 18984 
WRTD2 006464 1900 
WRTLEN 000640 1024 
WI 005322 1732 
wi0 005550 1771 
wil 005622 1779 
Wi2 005656 1792 
XRGRCD 010626 2307 
XRGREC 010514 1840 
XRGO 010522 2 
KRGS 010634 2323 
ZERO 011636 2646 


oo- or 


PL De thet eto pete 
CONN BOLWWE SPN 
Tee. 


swe Muu Ww 
BNSLFEEA VS 


BYVVS 


SoBEn 
eS 


ANNMMNNNN AS 
—N—= OO 
Se SaRR 


8 


S 
— 
=) 


x 
Ww 
& 


15404 


1599 
1633* 


16044 


1844 


2327 
2338 


2465* 
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1695 1740 

1251 1261 1277 1293 1305 1321 2562 
2083 2160 2315 

1762 1824* 1894 1896 1906 

1459 1504 1558 26164 

1760 1764* 1767 1788 1822 1834* 1835 


1505* 1739% 2346 2351 


1804* 1805 1807 1809* 1829 2313 2333 


24734 


26154 


1841* 


2305* 


SEQ 0057 


2324" 


CZTMCDO TM11 DATA RELIAB 


CZTMCD.P11 —-03-JUN-80 15:26 
$SCNTG 013747 2548 
'SMNEW 013765 5554 
'$MSWR 013754 5550 
SQUEST 13776 2580 
$READ 012232 5557 
| $R1 450 213 
“$R5 7606 516 
‘$WAIT 005232 171 
/SZEROS 001766 114 
; = 014006 94 
105 
167 
1991 
2264 
| 5476 
| 
/. ABS. 014006 —000 


CORE USED: 


ERRORS DETECTED: 0 


CZTMCD.BIN, CZTMCD.LST/CRF/SOL/NL: TOC=CZTMCD.P11 
RUN-TIME: 8 16 2 SECONDS 

RUN-TIME RATIO: 65/27=2.3 
8K (15 PAGES) 


ae arr — G 5 
MACY11 30A(1052) 03=JUN-80 15:27 PAGE 59 
CROSS REFERENCE TABLE == USER SYMBOLS 


1723* 
952" 
1132 


9544 
1191 
1746 
2062 
2279 
24944 


9654 
131 


9714 
1 


10394 
1 


SEQ 0058 


